< 



TSEXCi 
Tab le 



of contf?nt 



IS Ex ecu MACRO V05. O-- 



Hon day 21 -Dec -87 OB: 4'^ 



s- 

6- 

7~ 

8" 

9- 

10- 

11- 

14- 

15- 

16- 

17- 

18- 

19- 

20- 

21- 

22- 

24- 

25- 

26- 

27- 

ia.8— 

29- 

30- 

31- 

32- 

33- 

34- 

35- 

36- 

37- 

38- 

39- 

40- 

41- 

42- 

43- 

44- 

45- 

46- 

47- 

48- 

49- 

50- 

52- 

53- 

54- 



1 
1 
1 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

i 

j. 

1 
1 



INifLW 

MEWUSR 

STOP 

CLEr-JUP 

CANCPL, 

LOGOFi- 

TSXTX 

FPTRPX 

CLKRUM 

CLKDAT 

CLKJaB 

CL.K01S 

CLKIOH 

CHKPRT 

WAKEUP 

CKTWAT 

CKMRKT 

CLKSCR 

CLKPM 

CKSCHD 

CLKABD 

TLCHK 

CLKPHW 

DLGDSB 

DLSDSB 

DLSBRK 

DLSSPD 

DZGDSS 

DZSDSS 

DZSBRK 

DZS3PD 

DHGDSS 

DHSDSS 

DHSSPD 

DHSBRK 

VHGDSS 

VHSDSS 

3SF 

5Bf 
DLCLOK 
DZCLOK 
DHCLOK 
SYSDIE 
EXCINI 
IWISPD 
I IMS INI 



-• Initialize a line 
-- Start a new time-sharinq job 
--- Btop program execution .?< enter KHON 
-- Do general cleanup ujhen a job stops 

" Cancel all pending completion routines 

Log D-ff a job 

-■ Trvap Handler 

— Floating point trap routine 
Clock processing routine 

•■- update time of day and date 

- check time slice job status 

- 0. 1 second clock processing 

- See if we need to cancel I/O hold timers 

— See if we need to print Professional screen 

— 0.5 second processing for sleeping users 
•- Check on jobs doing . 7 WAIT waits 

- check mark -time requests 

•- Execute completed system mark-time requests 
-- accumulate performance monitoring data 

— Check jobs and schedule 

— Clock processing for autobaud logic 
Check Dial-up line status 

— Do timer driven checks of dial-up lines 

- Get data set status for DLll line 

- Set data set status for DLll line 

- Control break transmission for a DLll 
-~ Set transmission speed for DLll line 

- Get data set status for DZll line 

— Set data set status for a DZll line 

— Control break transmission for a DZll 

- Set transmission speed for a DZll line 

- Get data set status for a DHll line 

- Set data set status for a DHll line 

- Set transmit/receive speed for DHll line 

- Control break transmission for a DHll line 

— Get data set status for a DHVll line 

- Set data set status for a DHVll line 

- Set transmit/receive speed for a DHVll 

- Control break transmission for a DHVll 

- Timer driven routine for DLll lines 

- Timer driven routine for DZll lines 

- Timer driven routine for DHll lines 

- Fatal system halt 

- Final system initial i xation 

- Initialize time-sharing line speeds 

- Initialize installed program table 



1 i n i' 



l inf 



1 i n e 

1 i II e 
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n 

3 
4 

6 
7 
S 
9 
10 
11 
12 
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14 
15 
16 
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20 
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23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
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000000 

000000 021440 



MAXviDJB 



TSEXC2: 



! I TLE 
ENABL 
ENABL 
DSABL 
IF 



. ENDC 
. CSECT 
. RAD50 



TSEXC2 

LC 

AMA 

GBL 

NDF, MAXhJOB 





; NDF, MAXvJOB 

TSEXC2 

/EX2/ 



-• MiBc. 7SX~Plus Executive Routines 



/Maximum number of primary lines allouied 
; (0 ==> don't carei >0 for Micro and PRO 



TSEXC2 is a TSX-Plus virtual system overlay containing misc. routines. 



Copyright <c) 1980, 1981, 1982, 1983, 1984, 1985. 
S&H Computer Systems, Inc. 
Nashville, Tennessee USA 

All rights reserved 



Global definitions 

. GLOBL LOGOFF, TRPCOM, TSXTX, FPTRPX, EXCINI, NSIP 

. GLOBL SYSDIE, ABORT, STOP, NEWUSR, TRPBPT 

. GLOBL INITLN, CLKRUN, DZSSPD, DLSBRK, DZSBRK 

. GLOBL DLGDSS, DLSDSS, DZGDSS, DZSDSS, DHGDSS, DHSDSS 

. GLOBL DLCLOK, DZCLDK, VHGDSS, VHSDSS, DLSSPD 

. GLOBL DHSSPD, VHSSPD, DHSBRK, VHSBRK, DHCLOK, VHCLOK 

Global references 

. GLOBL R*SWPC, C. WUMQ, VUSPHN, *RDSAV, DOTRMP, *GEMAR 

. GLOBL LSWl 1, $PWKEY, AF*NPW, LNSPAC, SUCF2, IB*SF2, IB*IJ, SPIJ 

. GLOBL LTTCR, EMTBLK, AF^DUP, AF*IND, AF*UCL, AF$SET, LCXTBL 

. GLOBL CINFLG, DIEARG.. DIEMSG, DIEPC, DIESP, VSYDMP, DODUMP, SYSHLl 

. GLOBL VPAR5, TRPAR5, VDMKTP, DMPOVL, DMPHND, DMPTXT, PLSINI 

. GLOBL VSWPSL, SWPsJOB, SWPPOS, SLTSIZ, CSHDEV, CSHDVN 

. GLOBL *DETCH, LSW, *DILUP, LOTSPC, LOTSIZ, CDSSPD, *DHCDO 

. GLOBL LSTPL, PVOiM, LMPRIM, LliMSWT, LSECPT, MAXSEC, NUMON, NEDCLO 

. GLOBL PO$SPV, P01i^4AM, PO*SYS, PO*BYP, LPARNT, CL*EPS 

. GLOBL PO*DBG, SYMAME, PO*MEM, PO^LOK, II*PRV, PO«NFR, PO«NFW 

. GLOBL INSTBL, INSTBN, II**SZ, II*NAM, II*FLG, I I*NPV, AF«PLK 

. GLOBL AF$SCA, AFifiNOW, AF*HIE, AF*NOI, AF*IOP, AF«MEM, AF*BYA 

. GLOBL LNMAP, *DISCN, FORCEX, LBASE, LNBLKS, VH$LCR, CLTOTL 

. GLOBL LP*SPD, LP<{;7BT, LP*PAR, LP*ODD, SYSXIT, VDBFLG, CXBOWN 

. GLOBL DZ*LEN, DZ*BBT, DZ*7BT, DZ*PAR, DZ$ODD, SP*LNK 

. GLOBL HF*LEN, HF*8BT, HF*7BT, HF*PAR, HF$ODD, WINREL 

. GLOBL VF^LEN, VF*SBT, VF$7BT, VF*PAR, VF*EVN 

. GLOBL $AUTO, S9600, *NABRS, SETSPD, LABTIM, PIDPTR, *CTRLO, CSHFIN 

. GLOBL MXTYPE, CDX*DZ, .INTMXl, VF*RIE, VF*TIE, VH*CSR, MH*SCR, FP*IOF 

, GLOBL HF$TSB, MH*LPR, MH*BRK, VF*SC, VHfLPR, VF*BC, *NOUCR, JOBCCB 

. GLOBL FRKINI, FO**SZ, NUMFRK, FRKGEN, FREFRK, FQ*LNK, SCHED, NPCCB 

. GLOBL LMEHIN, DEQ, LBW2, LSW4, LSW5, *1STLG, LSW6, *CARUP, TOTON, PMUSER 

. GLOBL PMRUN, SS, CORUSR, EXEC, JCDB, LSW7, CANIDT, SI 50, LIOHLD, NSCP 

. GLOBL UMODE, INTLVL, UTRPAD, CHKABT, UPMODE, UFPTRP, CW*FPU, SCPFHD 



\ 
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58 


59 


60 


61 


62 


63 


64 


65 


66 


67 


6S 


69 


70 


71 


72 


73 


74 


75 


76 


77 


78 


79 


80 


81 


82 


83 


84 


85 


86 


87 


88 


89 


90 


91 


92 


93 


94 


95 


96 


97 


98 


99 
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101 
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103 


104 


105 
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i 07 


108 


109 


110 


1 1 1 


112 


113 


114 
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. OLOBL CONFIG, TRRDY, CTTSR, CTTBR, *DBGMD, *NOLF, LCXPAR, *RNMLK 

. C5L0BL FREICQ, NUMIOQ, lOQSIZ, 0. LINK, USRINI, LSW9, *SUCF, SYPNCR 

. GLOBL LSTMX, MXLNT, LSTPL, LMXNUM, MXLNT, CDCLOK, LCDTYP, LINSIZ 

. GLOBL SNMSHD, NMSNMB, SB*$SZ, SB«LNK, CLKINT, *CARMN, LINSPC, SP**SZ 

. GLOBL *START, ILSW2, *DEAD, *PHDNE, FSTDL, LSTDL, LSUCF, *TDEAD 

. GLOBL INITFL, LSW3, PSW, INTPRI, SYSHLT, CHKUSP, MSGABT 

. GLOBL $INKMN. ABRTAD, ABRTCD, STOP, LMXLN, OVRHC, MAPUSR, MONABT 

. GLOBL $INIT, LQUAN, LvJSW, LINBUF, LINNXT, LSTACT, LINPNT, LINCNT 

. GLOBL L0T3UF, LOTNXT, LOTPNT, LACTIV, *LOFCF, CSHALC, NUMCCB, CCBHD 

. GLOBL LCDL, LAFSIZ, LPROJ, LPROG, LSCCA, LBRKCQ, LBRKCH, LCPUHI 

. GLOBL LCPULD, LCONTM, LINCUR, KPAR6, CURRDB, RPAR, RPDR, CXTRMN 

. GLOBL VECBAS, MVWDS, ITRMTP, LTRMTP, HSGINI, VMAXMC, S*HICP, KILJOB 

. GLOBL *CTRLS, *VNOTT, SPLINI, NSPLDV, LOKINI, VMXSF, LITIME, QNSPND 

. GLOBL SETMAP, DFJMEM, MAXMEM, EMJCAD, EMTRAD, RCBBAS, RCBEND, PLSXIT 

. GLOBL SPCPS, JSTKND, JSTK, EMTLEV, UERSEV, $DOOFF, *NOIN, ERRLOC 

. GLOBL VSWPFL, KMNTOP, KMNBAS, SUTOP, UHIMEM, JSWLOC, R*CH17 

. GLOBL KMNCHN, CSIARE, KMNSTKM, LQUAN, KMNSTR, *CTRLC, LSLEPH. LSLEPL 

, GLOBL LSPND, ^lOMAP, *MLDCK, LRDTIM. lOHALT, lOSTOP, RTSTOP 

. GLOBL USRJOB, FREUSR, FRESPD, CANMKT, QFREE, LCMPL, CQ*LNK 

. GLOBL CLSCDB, hf*t:i:e, hf*rie, dlstrt, dzstrt, cq*cp 

GLOBL LNSBLK, RCBBAS, RCBEND, FREMEM, VPLAS, TRNSTR, *HARD 

, GLOBL CXTPAG, KMNPGS, LIDCNT, VPRIDF, LBSPRI, LPRI, LSTHL 

GLOBL LHIPCT, GHIPRI, INVEC, INRECV, RSR, STPFLG, *VIRJB 

. GLOBL RING, TRMRDY, MXRING, MXDTR, VTMOUT, LCDTIM, CARDET 

, GLOBL MXCAR, RCVDON, *I1TIM, RDINT, RDONE, MXCSR, RIE, NEDCDO, NEDCDI 

GLOBL *XCHAR, LOGCHR, LOGCR, LOGFLG, LF*IN, FPUUSE, *MAPOK, R*MFMV 

GLOBL SPSTAT, SS*RUN, SStPRT, LPRGl, LPRG2, *NOABT 

GLOBL CURVC, SYSDAT, LSTATE, LSTSL, SWPCOT, DOSCHD, S*INWT, *FPUEX 

GLOBL LRTCHR, MRKTHD, CQ*LNK, S*IOWT, PMBASE, PMTOP, PMNBPC, VPAR6 

GLOBL PMPAR, *SOTFN, St.OTFN, *DEFER, *DODFR, tGCECO, S*DTLO, NEDSOT 

GLOBL CLKRUN, TIKCNT, CLKCNT, LCPULO, LCPUHI, TKIVAL, CQ*>JOB 

GLOBL TKICNT, TK5CNT, SYTIML, SYTIMH, DATIML, DATIMH, JM*LNK 

GLOBL $DHBFi, $DHBF2, LSWIO, VF*RIE, HF*RIE, VOFFTM, LOFFTM 

GLOBL VMXWIN, WININI 

GLOBL LMINQ, MINCTR, MINTIM, DTLX, UIOCNT, STRACT, *DEBUG 

GLOBL VPRIHI, VPRILO, V/GUANO, VQUAN3, *SGQO, *SGQ3, LCLUNT 

GLOBL TMTOTL, TMTOTH, THIOL, TMIOH, INBSY, OUTBSY, DBGTRP 

GLOBL TMSWPL, TMSWPH, TMUSRL, TMUSRH, TMIOWL, TMIOWH 

GLOBL TMSWTL, TMSWTH, TMIDLL, TMIDLH, SYSHLT, GETMEH, EMTCAS 

GLOBL S«*HIP, S**RT, S*TMWT, S^TWFN, CQ*PRI, *OITIM 

GLOBL VQUANl , VQUNl A, VQUAN2, QCPU, MBFFLG, UREGO, S*WSMB 

GLOBL LSLEPL, LSL.EPH, ENQTL, QCOMPL, VQUNIB, MONFQH, VMXMDN> JMm^SZ 

GLOBL CQ$HOT, CQfLOT, CQ*LNK, CQ*RNS, CSHINI, FRKPRI 

GLOBL PF$SYS, PF«IDW, PF«DVF, CLKPS, CLKPC, CURCP, SHRRCB, SHRRCN 

GLOBL PMFLGS, UMODE, LEMTPC, *INCOR, EM«DTL, CP*STD 

GLOBL LITIME, VINTIO, VGUNIC, QUNSIG, MSfBRK, TRBRK 

GLOBL LSW8, *SGGli, *SGQ1A, $SGQ1B, itSGQlC, «SGQ2 

GLOBL CC**SZ, CC*LNK, CXTBAS, CXTWDS, PCCCR2, PROFLG 

GLOBL CDGDSS, CDSDSS, MS*DTR, MS*CAR, MS«RNG, PRDODC, PLSOFF 

GLOBL CDX*VH, VH*CSR, VH*LSR, VH*LCR, ^DBGBK 

GLOBL VF«RNG, VF^DCD, VF*DTR, D. FLAG, D*RUN 

GLOBL MF«LIN, DH$CSR, DM*LSR, MF*RNG, MF«CAR, MF*DTR 

GLOBL FP*CK1, FRKGET, FORKQ, FQ*PRI, FQ*RTN 

GLOBL CDIRTN, CDIFLG, FP*CDI, CDORTN, CDOFLG, FP*CDO 

GLOBL TSR, MXDRK, LHXPRM, MXLPR, MXSBRK, FRECXT 

GLOBL OVRADD, 0. ADR, 0. PAR, NUMDEV, HANPAR, PNAME 
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117 


lis 


119 
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00001 r- 
0000 li? 
000007 



Sij fttb D .1. :L c equates 



CR 


r: 


15 


LF 


r^r 


12 


BEi.L 


I- 


7 



; Carriage— return 
; Line-feed 
j Bel 1 



( 
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( 



4 
5 
6 
7 

a 

9 
10 
1.1. 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



24 
2b 



28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



Ma (TO ca lis 

. MCALL . READW, . PUf<Ofc: 



Ma fro definitions 

Macro to call a routine in another system overlay. 

, MACRO OCALL ENTADD 

. IF B, ENTADD 

.ERROR J OCALL without entry address 
. ENDC 

CALL OVRHC ;call the low-core overlay handler 

. WORD ENTADD 

. ENDM OCALL 

Macro to disable interruptEi 

. MACRO DISABL 
BIS #340, ©#PSW 
. ENDM DISABL 

Macro to enable interrrupti^ 

. MACRO ENABL 

BIC INTPRI, e#F^'3W 

. ENDM ENABL 

Macro to print an error mes-sage when a system crash occurs. 

Arguments; 
MSO - Name of error mescage to print. 
ARO - (Optional) arctument value to display with error message. 

. MACRO DIE MSe, ARO 

MOV MSG, @#DIEM'3CJ 

. IF NB, ARC 

MOV ARG, e#DIEARG 

. ENDC 

CALL ©#SYSHI,.T 

. ENDM DIE 

Macro to define a system abort error message 

. MACRO SAT XT NAME, TEST 
. GLOBL EM$'NAME 
f-M*'NAML- - . - DIEBAS 

. ASC I Z \ ' NAME ' - ■' TEST ' \ 
. ENDM SAT XT 



TSEXC. 
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3 
.4 

5 

6 

7 



9 

10 

11 

12 

13 

14 

15 

1,6 

17 

10 

19 

20 

21 

22 

23 

24 

25 

26 

27 

29 

29 
nn 

U.f\J 

31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
43 
49 
50 
51 
52 
53 
54 
55 
56 
57 



000002 
000002 
000056 
000106 
000146 
000172 
000217 
000250 
000336 
000366 
000435 
000476 
000522 
000602 
000635 
000665 
000731 
000755 
001033 



001056 
00 1 1 20 
001136 
001137 
001155 
001173 
001205 



001252 

001274 



001312 



00 1 322 

001336 
001340 
001342 
001344 
001346 
001350 



015 
101 
000 



123 
1 1 7 
lO'l 
123 



000001 
00 1 000 



00 J 



000000 

0000000 

177777 

063337 

063344 

073376 



012 
162 

101 
145 
166 
145 
120 



000002 
002000 



002 



004 



034 



F-atal iiystem abort error meBf>ages: 



ML I ST BEX 



DIEBAB: 




SAT XT 


DTL, 


SAT XT 


FRK, 


SATXT 


viMO.. 


SAT XT 


KRF, 


SATXT 


KTP.. 


SATXT 


LHF, 


SATXT 


MIO, 


SATXT 


MPR, 


SATXT 


NOE, 


SATXT 


NSP, 


SATXT 


PFT, 


SATXT 


RIT. 


SATXT 


SFO, 


SATXT 


SIE, 


SATXT 


SSE, 


SATXT 


SJN, 


SATXT 


UEI, 


SATXT 


SOF, 



limit reached> 
0> 



MIONWB sysgen paramBter> 
elements> 



<Demonstration system time 

<N free FORK b J o <:: 1: s > 

<Jump occurred to location 

<KMON read err{n-> 

<Kernel mode trapy 

<Jofa lock mem Fsj,lure> 

<Need to increase value of 

<Memory parity {?rror> 

<Ran out of free .1/0 queue 

■CNo free swap command packets> 

<P owe r - f a i 1 t t^ a p > 

<Trap in real-time interrupt service routine 

<Job swap file overflout> 

CSwap file I/O error.> 

<PLAS region swap file I/O error> 

<Job # at STOP> 

<Interrupt occurred at unexpected location> 

<Stack overflo»u> 



Other related text strings. 



012 


TXFSE 


. ASCII 


147 


TXARG 


. ASCII 




TXNUL 


. BYTE 


122 


TXPAR 


5: . ASCII 


147 


TXSEG 


. ASCII 


145 


TXOID 


. ASCII 


166 


TXDEV 


. ASCII 


040 


SPTXT 


. ASCII 
. EVEN 



'■ '-vCCV-'U..-- 

.'<200> 



<CR><LF><LF 

/Arg. value 



/PARS value 

/Seg. value 

/Overlay: /<200> 

/Device name: /<200> 

/SP at time of crash 



Line select bits for a DHl 1 mux. 



<BELL>/?TSX-F-Fatal system error at /<200> 



/•=.:200> 



000004 DHLBIT: . WORD 
004000 . WORD 



1, 2, 4,- 10, 20, 40, 100, 200, 400 

1000, 2000, 4000, 10000, 20000, 40000, 100000 



Line select bits for DZll mux. 
1XLBIT: . BYTE 1, 2, 4, 10, 20, 40, 100, 200 
Number of days in each month 



037 MONDAY: 

FORK IT 
PROTIM 
TIKOIS 
R50PR0 
RSOPRT 
R50SAV 



BYTE 
EVEN 

WORD 

WORD PROODC 

WORD -1 

RAD50 /PRO/ 

RAD50 /PRT/ 

RAD 50 /SAV/ 



31. , 23. , 31. , 30. , 31. , 30. , 31. , 31. , 30. , 31. , 30. , 31. 



iFlag to create fork process 

J Call PI driver after this many ticks 

j# pending O. 1 second clock ticks 



Table to convert normal TSX-Plus speed codes into DHll speed codes 



c 

€ 

i 
€ 
€ 
I 
€ 
i 
i 
i 
i 
i 
i 



( 
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59 001352 001 002 003 DHSPCT: .BYTE 1,2,3,4,5,7,10,11.12,0,13,0,14,0,15.16 

60 ; 

61 ' Table to convert normal TSX-Plus speed codes into DHVH speed codes 

62 > 

63 001372 000 001 002 VHSPCT: . BYTE 0, 1, 2, 3, 4, 5, 6, 7, 10, 11, 12, 0, 13, 14, 15, 16 

64 . EVEN 
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.1. 

2 








3 








4 








5 








6 








7 








S 








9 








10 








11 








12 








13 








14 








15 








16 








17 








18 








19 








20 








21 








22 








23 








24 








25 








26 




000000 




27 


001412 






2S 


001412 


016130 


000000 


29 


001416 


0000000 




30 


001420 


000000 




31 




000001 




32 


001422 


035164 


000000 


33 


001426 


OOOOOOC 




34 


001430 


000000 




35 




000002 




36 


001432 


042614 


000000 


37 


001436 


OOOOOOC 




38 


001440 


000000 




39 




000003 




40 


001442 


042640 


000000 


41 


001446 


OOOOOOC 




42 


001450 


000000 




43 




000004 




44 


001452 


045130 


000000 


45 


001456 


OOOOOOC 




46 


001460 


000000 




47 




000005 




48 


001462 


046537 


057760 


49 


001466 


OOOOOOC 




50 


001470 


000001 


OOOOOOC 


51 


001474 


000000 




52 




000006 




53 


001476 


062074 


012000 


54 


001502 


OOOOOOC 




55 


001504 


000000 




56 




000007 




57 


001506 


073634 


1 02700 



Table of programs that have automatic switch assignment when they 

are started by TSKMON. The following flags may be specified follouiing 

tbf program name words; 



AF*NOW '- 

AF*HIE = 

AF*NOI = 

AF*IOP = 

AF*SCA = 

AF*MEM = 

AF*PLK = 

AF^DBG = 

AF$BYA = 

AFi&TPO = 

AF*DUP = 

AFfIND = 

AFIiUCL = 

AF$SET = 

AF«CCA = 

AF*NPW = 

Each program 
program name 



= Allow non-wait . TTYIN operation. 

■■ Run program in high-efficiency mode. 

: Run program in non-interactive mode. 

■■ Map user PAR 7 to I./0 page (requires operator priv. ) 

■ Enable single character activation. 

■ Lock program in low memory. 
■■ run/lock' program 

■■ RUN./DEBUG program 

•■ Bypass user ASSIGNS 

• Use transparent terminal output 

■ Program is DUP 

■ Program i& IND 

■■ Program is TSXUCL 

■ Program is SETUP 

' Suppress ctrl-C abort 

■ No windows duT'ing program 

entry must consist of two words containing the 6 character 
followed by a word with the flags. 



NSIF 
SRFPRC: 



NSIP 



NS.IP 



NSIP 



NSIP 







No system installed programs yet 



JSIP 



NSIF 



NSIP 



. RAD50 /DUP / 
. WORD AF*DUP 
. WORD 

NSIP+1 
. RAD50 /IND / 
. WORD AF*NOW ! AF* I ND 
. WORD 

NSIP+1 
. RAD50 /KED / 
. WORD AF$SCA ! AF*HIE ! AF*NOW 
. WORD 

NSIP+1 
. RAD50 /KEX / 
. WORD AF*SCA ! AFliHIE ! AF*NOW 
. WORD 

NSIP+1 
. RAD50 /K52 / 
. WORD AF*SCA ! AF*HIE ! AF*NOW 
. WORD 

NSIP+1 
, RAD50 /LOGON / 
.WORD AF«PLK!AF$BYA 

. WORD +1 . POf SPV ; P0*NAM i PO*SYS i PO*BYP 
. WORD 

NSIP+1 
. RAD50 /PATCH / 
. WORD AF$SCA 
. WORD 

- NSIP+1 ; Count another system program 

. RAD50 /SETUP / 



i Count another system program 



Count another system program 



; Count another system program 



Count another system program 



•rSEXC2 


— Misc 


. TSX-f>:i 


us Ex ecu MACRO V05. 04 


Monday 21 
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-1 






58 


001512 


ooooooc 






. WORD 


AF*IOP!AF$SET 










59 


001514 


000000 






. WORD 













60 




000010 




NSIP 


:,•■■: 


NSIP+1 




; Count 


another 


system program 


61 


001516 


07 5273 


051646 




. RAD50 


/SYSMON/ 










62 


001522 


000000 






. WORD 













63 


001524 


000001 


OOOOOOG 




. WORD 


+1, PO*MEM 










64 


001550 


000000 






. WORD 













65 




000011 




NSIP 


= 


NSIP+1 




; Count 


another 


system program 


66 


001532 


076713 


056700 




. RAD50 


/TECO / 










67 


001536 


OOOOOOC 






. WORD 


AF*SCA ! AF$NOW 










63 


001540 


000000 






. WORD 













69 




0000 1;-! 




NSIP 


s= 


NSIP+1 




; Count 


another 


system program 


70 


001542 


077721 


055176 




. RAD50 


/TRANSF/ 










71 


001546 


OOOOOOC 






. WORD 


AF*SCA!AF*NOI 


AF*NOW 


AF*NPW 






72 


001550 


000000 






. WORD 













73 




0000 i;i 




NSIP 


:s 


NSIP+1 










74 


001552 


077771 


103150 




. RAD50 


/TSAUTH/ 










75 


001556 


oocooo(^; 






. WORD 


AF*BYA 










76 


001560 


000000 






. WORD 













77 




000014 




NSIP 


c: 


NSIP+1 




; Count 


another 


system program 


7S 


001562 


100020 


101704 




. RAD 50 


/TSXUCL/ 










79 


001566 


0000000 






. WORD 


AF*UCL 










80 


001570 


000000 






. WORD 













81 




00001 f' 




NSIP 


■^z 


NSIP+1 










82 


001572 


106243 


057710 




. RAD 50 


/VTCOM / 










83 


001576 


OOOOOOC 






. WORD 


AF*SCA i AF*NOW . 


AF*MEM 








84 


001600 


000001 


OOOOOOQ 




. WORD 


+1, PO$LOK 










85 


001604 


000000 






. WORD 













86 




000016 




NSIP 


r.= 


NSIP+1 




j Count 


another 


system program 


87 


001606 






SRFEND 








i End of 


special 


program flag list 



c 

r 



€ 
€ 
i 
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1 



6 
7 

a 

9 

:io 
1.1 

12 
13 
14 

15 

16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



. BBTTL INITLN 



;t 11 i t i a 1 i z e a line 



00 ; 
00.1 
001612 



>1606 
>1610 



27 
28 

29 00 

30 00 
31 

33 

34 00 

35 00 

36 00 

37 00 
38 

39 
40 
41 
42 



1614 
1620 



1622 

1630 
1634 



00 
00 

43 00 

44 00 



1636 
1642 
1646 
1652 



45 
46 
47 
48 001656 



49 00 

50 00 

51 00 

52 00 

53 00 
54 

55 
56 
57 



1662 
1664 
1670 
1674 
1676 



010246 
010346 
010003 



005761 
002160 



012700 
001403 
123700 
103152 



005061 
005061 
005061 
005061 



013700 
006300 
063700 
020037 
103002 
013700 



0000000 



000000 
0000000 



0000000 
0000000 
OOOOOOQ 
0000000 



OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 



.TNITI..N is called to initiate (logon) a line. 

It initializes a number of line control tables and then places 

the line in a high-priority execution state. 

If the system is generated with job swapping turned off <SWAPFL=0) 

a check is made to see if there is sufficient free memory available 

for the job before it is initiated. If there is not enough free memory 

available, the job is not initiated. 

I n p u t B : 
Rl = Number of line to be initiated 

RO =• Pointer to I/O queue element with name of secondary 
start-up command file for the job (O=none). 

Outputs; 
C -f lag set if swapping is disabled and there is insufficient free 
memory space available to start job. 

The queue element with the secondary start-up command file name is 
fr{;»ed if the job cannot be started. Otherwise it is freed after the 
job is initialized. 



INITLN: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP) 
RO, R3 



.: Get pointer to Q element with CF name 

Never start a line that is being used as a CL unit 



TST LCLUNT<R1.> 
BGE 9* 



; Is this a CL line? 
i Br if yes 



See if we are constrained by max # jobs allowed to be on 



>Get max # jobs allowed to be on 
j Br if no limit on # logged on jobs 
;Max # jobs already logged on? 
i Br if yes 



Initialize some line control tables 



MOV 


#MAXJOB, RO 


BEQ 


4* 


CMPB 


NUMON, RO 


BHIS 


9* 



4*: CLR LSW(R1> 

CLR LNeLKS<Rl) 

CLR LIOCNT(Rl) 

CLR LCMPL<R1) 



f'feset job status flags 

JOB HAS NO ASSIGNED MEMORY NOW 

JOB HAS NO ACTIVE I/O 

JOB HAS NOT PENDING COMPLETION ROUTINES 



Determine how much memory the line needs to be initiated. 

GET DEFAULT # KB FOR JOB 

CVT TO # PAGES 

ADD # PAGES NEEDED FOR JOB CONTEXT BLOCK 

COMPARE TO # PAGES NEEDED TO RUN KMON 

BR IF JOB SPACE > KMON SIZE 

MUST HAVE AT LEAST ENOUGH MEMORY FOR KMON 

If this is a non-swapping system* make sure enough free pages are 
available for this job. 



MOV 


DFJMEM, RO 


ASL 


RO 


ADD 


C.XTPAG, RO 


CMP 


RO, KMNPGS 


BHIS 


1* 


MOV 


KMNPGS, RO 



{ 
i 
i 
i 

i 



( 

f 



TSEXC2 
INITLN • 

5S 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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001702 
001706 
001712 
001714 
001720 
001724 
001726 



001734 
001740 
001744 
001750 
001754 
001762 
001766 
00 1 774 
002002 
002010 
002016 
002024 
002032 
002040 
002046 



002052 
002056 
002060 
002064 
002072 
002100 
002102 
002110 
002112 



002124 
002130 
002134 
002136 
002142 
002144 
002150 
002152 



010061 
10 5737 
001010 
010061 
004737 
103516 
052761 



016102 
010261 
010261 
010261 
016161 
005061 
052761 
052761 
012761 
012761 
113761 
113761 
1 376 1 
013761 
010361 



020127 
101020 
005061 
042761 
032761 
001407 
032761 
001403 
052761 



020127 
1 1 003 
105237 
000403 
020127 
1 1 402 
1 5237 



0000000 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



MOV 


RO, LMEMIiM<Rl) 


T9TB 


VSWPFL 


BNE 


3* 


MDV 


RO, LNBLKS<H1) 


CALL 


GETMEM 


BCS 


9* 


BIS 


#*INCOR/ LSW(Rl) 



SET # MEMORY PAGES NEEDED FOR JOB 

IS THIS A SWAPPING SYSTEM? 

BR IF YES 

SET SIZE OF ROOT OF JOB REGION 

TRY TO ALLOCATE MEMORY FOR THIS JOB 

BR IF NOT ENOUGH MEMORY AVAILABLE 

SET FLAG SAYING JOB IS IN MEMORY 



OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 



004737 OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



Initialize the line control tables for the job 

3%: MOV LINBUF<R1)>R2 i SET UP INFO ABOUT INPUT BUFFER 

MOV R2, LINNXT(Rl) 

MOV R2.. LSTACT<RJ ) 

MOV R2, LINPNKRl) 

MDV LINSIZ<Ri),LINSPC(Rl) 

CLR LINCNT(Rl) 

BIS #*DILUP, LSW<R1) ; REMEMBER LINE IS ACTIVE 

BIS #*NOIN, LSW3<R1) ; DON'T ACCEPT TT CHARS FOR LINE YET 

MOV #*SUCF, LSW9<R1 ) J Say we btb in startup command file 

MOV #*PWKEY, LSWIKRI).: Initialize LSWll 

MOVB VPRIDF. LBSPRKRDiSET BASE PRIORITY FOR JOB 

MOVE VPRIDF, LPRKRl); SET CURRENT PRIORITY FOR JOB 

MOV VINTID, LHIPCT(Rl); INIT HIGH-PRIORITY HITS FOR JOB 

MOV VQUANl, LITIME^Rl); SET INTERACTIVE JOB TIME SLICE 

MOV R3, LPROJ(Rl) ; Store ptr to command file buffer in LPROJ 

If this is a dial-up line and carrier is up, set flag that will 
cause us to log off the line if carrier is lost. 

CMP R1,#LSTPL i Is this a primary line? 

BHI 2* J Br if not 

CLR LOF'FTM(Rl) ; Don't have to time logoff time any more 

OOOOOOG BIC #*CARMN, LBW5<Rl)i Assume we do not need to monitor carrier 

OOOOOOG BIT #*PHONE, ILSW2<R1 ); Is this a dial-up line? 

BEQ 2* i Br if not 

OOOOOOG BIT #*CARUP> LSW3<R1); Is carrier up now? 

BE<3 2* J Br if not 

OOOOOOG BIS #*CARMN, LSW5<R1); Set flag saying to monitor carrier 

; Put job in high priority execution state 

2*: CALL QHIPRI ; PUT JOB IN HIGH PRIORITY STATE 

\ Count number of logged on jobs 

> Total number of logged on jobs 

ils this a primary line? 

j Br if not 

J Count another real line on 

Is this a virtual line? 

Br if not 

Count # primary ?< virtual lines on 



5*: 



INCB 


TOTON 


CMP 


R 1 , #LSTPL 


BHI 


5* 


INCB 


NUMON 


BR 


6$ 


CMP 


R 1 , #LSTDL 


BLOS 


3* 


INCB 


PVON 



002156 000241 



3* 



Successful finish 

etc 



j Signal successful return 



TSEXC2 


— Misc 


TSX-P3 


us Ex ecu 


INITLN - 


■•- Initialize a 


line 


115 


002160 


000407 




116 








117 








118 








119 








120 


002162 


010146 




121 


002164 


010301 




122 


002166 


001402 




123 


002170 


004737 


0000000 


124 


002174 


012601 




125 


002176 


000261 




126 








127 








128 








129 


002200 


012603 




130 


002202 


012602 




131 


00220-1 


000207 
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BR 



10* 



Wb were not able to start the job 

Free the I/O queue element used to pass name of start-up command file 



9*; 



U*: 



MOV 

MOV 

BEG 

CALL 

MOV 

SEC 



R 1 , - ( SP ) 
R3, Rl 
11* 
QFREE 
<SP)+,R1 



! ■ i n i shed 



10*: 



MOV 
MOV 
RETURN 



<;SP)+, R3 
<SP)+, R2 



j Save job number 

; Get pointer to Q element 

i Br if no Q element to free 

; Free the Q element 

; Restore job number 

; Signal failure on return 



TSEXC2 
NEWUSR - 

.t 

2 
3 
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4 
5 
6 
7 
8 
9 


002206 








002206 


052761 


OOOOOOG 


OOOOOOG 


10 


002214 


005061 


OOOOOOG 




11 


002220 


005061 


OOOOOOG 




12 


002224 


005061 


OOOOOOG 




13 


002230 


005061 


OOOOOOG 




14 


002234 


005061 


OOOOOOG 




15 


002240 


012761 


OOOOOOG 


OOOOOOG 


16 


002246 


016102 


OOOOOOG 




17 


002252 


010261 


OOOOOOG 




18 


002256 


010261 


OOOOOOG 




19 


002262 


016161 


OOOOOOG 


OOOOOOG 


20 


002270 


005061 


OOOOOOG 




21 


002274 


00 506 1 


OOOOOOG 




22 


002300 


00S061 


OOOOOOG 




23 


002304 


005061 


OOOOOOG 




24 


002310 


005061 


OOOOOOG 




25 


002314 


005061 


OOOOOOG 




26 


002320 


005061 


OOOOOOG 




27 


002324 


005061 


OOOOOOG 




23 


002330 


005061 


OOOOOOG 




29 


002334 


005061 


OOOOOOG 




30 


002340 


005061 


OOOOOOG 




31 
32 
33 


002344 


005061 


OOOOOOG 












34 










35 


002350 


016137 


OOOOOOG 


OOOOOOG 


36 










37 










38 










39 


002356 


012702 


OOOOOOG 




40 


002362 


013703 


OOOOOOG 




41 


002366 


006203 






42 


002370 


005022 






43 


002372 


005022 






44 


002374 


077303 






45 


002376 


032737 


000001 


OOOOOOG 


46 


002404 


001401 






47 


002406 


005012 






48 










49 










50 










51 


002410 


012737 


177777 


OOOOOOG 


52 


002416 


012737 


OOOOOOG 


OOOOOOG 


53 


002424 


012737 


123456 


OOOOOOG 


54 










55 










56 










57 


002432 


013702 


OOOOOOG 





. SBTTL NEWUSR — Start a new time-sharing job 

- — . — .,»- — .,_«_ — ^, — ^ — ,— «. — -, — — . — — — .^«..« — —.——-«««.—.».«-— — «..»«.«_». — « — «_. 

; Do initialization for stert-up of a new job. 
NEWUSR : 



Initialize LSW tables. 



BIS 
CLR 
CLR 
CLR 
CLR 
CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 



#*INIT>LSW(R1) 

LQUAN(Rl) 

LJSW(Rl) 

LSW7<R1) 

LSWS<R1) 

LNSBLK(Rl) 

#*INKMN, LSW4(R1) 

LOTBUF(Rl), R2 

R2, LOTNXKRl ) 

R2, LOTPNKRl) 

LOTSIZ(R1),LOTSPC(R1) 



SAY JOB INITIALIZATION IS BEING DONE 
INITIALIZE JOB'S TIME QUANTUM 
JOB STATUS WORD 



NO SPACE FOR ANY PLAS REGIONS 

START OUT RUNNING KMON 

SET UP INFO ABOUT OUTPUT BUFFER 



LACTIV<R1> 

LC0L<R1) 

LAFSIZ(Rl) 

LPRDG<R1.1 

LSCCA<R1) 

LBRKCQ(RJ ) 

LBRKCH<R1) 

LTTCR(Rl) 

LCPUHKRl) 

LCPULO(Rl) 

LCONTM(Rl) 

LINCUR(Rl) 



SAY NO ACTIVATION CHARS RECEIVED YET 

NO ACTIVATION FIELD SIZE 

OR PROGRAMMER NUMBER 

NO . SCCA DONE YET 

NO BREAK KEY CONNECTION 

CLEAR BREAK CHARACTER 

No TT activation completion routine 

CLEAR RUN-TIME ACCUMULATOR 

CLEAR CONNTECT-TIME 



7*: 



Map kernel mode PAR 6 to job context block. 

MOV LCXPAR<R1), ©#KPAR6; MAP KERNEL PAGE 6 TO CONTEXT BLOCK FOR JOB 



Get address of base of context area 

Get # words in context area 

Get # of doubleujords 

Clear first word of pair 

Clear second word of pair 

Loop if more doublewords left to clear 

Is there an odd word at end to clear? 

Br if not 

Clear last word of context block 



Zero 


the 


job 


'5 context 




MOV 




#CXTBAS, R2 




MOV 




CXTWDS, R3 




ASR 




R3 




CLR 




(R2) + 




CLR 




<R2) + 




SOB 




R3, 7* 




BIT 




#1, CXTWDS 




BEQ 




8* 




CLR 




(R2) 



Initialize some cells in job context block 



MOV #-l,EMTLEV i Say 
MOV #EMTCAS, EM TCAD ; Say 
MOV #123456, JSTKND J Set 



job is not executing an EMT 

completion routine return stack is empty 

value used to check for stack overflow 



Set up simulated RMON fixed offset table. 

MOV CXTRMN, R2 ; Get addr of RMON in job context area 



TSEXC2 
NEWUSR ■ 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
7.1 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

1 08 

109 

110 

111 

112 

113 

114 



— Misc. 
—• Start 

002436 
002442 
002446 
00245a 



002456 
002462 



002466 
002472 
002476 
002502 



002504 
002510 
002512 
002520 
002522 
002526 
0025.32 
002534 
002536 
002540 
002542 
002546 
002550 



002554 
002S60 
002562 
002566 



002570 
002576 



002600 
002606 
002614 
002622 



TSX-Plus Execu MACRO V05. 04 
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012703 
012700 
01232r^ 
07700S 



013700 
062700 
105060 



013700 
062700 
1 2720 
005010 



016104 
001421 
1 1 6437 
010402 
062702 
012703 
1 1 2223 
00 1 376 
010146 
010401 
004737 
012601 
005061 



020127 
003021 
020127 
003404 



052761 
000430 



016161 
016161 
042761 
000416 



OOOOOOG 
OOOOOOG 



4$: 



MOV 
MOV 
MOV 
SflB 



#VECBAS. R3 
#MVWDS, RO 
(R3)+, <R2)H- 
RO, 4* 



POINT TO SYSTEM CHANNEL BLOCK 

GET # WORDS TO MOVE 

SET UP JOB'S SIMULATED RMON IN CONTEXT BLK 



Zero the I/O count in thp channel used to access system su>ap file. 

(Count could be non-zero if swap was in progress when we copied RMON data) 



OOOOOOG 
OOOOOOG 
OOOOOOG 



MOV 
ADD 
CLRB 



CXTRMN, RO 
#R*SWPC, RO 
C. NUMQ<RO) 



iOet pointer to base of simulated RMON 

> Point to swap file channel in context block 

J Zero I/O count in swap file channel block 



Change instruction in . MFPS routine in simulated RMON to return a 
value of rather than trying to access the I/O page 



OOOOOOG 
OOOOOOG 
012716 



MOV CXTRMN, RO 

ADD #R*MFMV. RO 

MOV #012716, (R0)+ 

CLR (RO) 



; Get pointer to base of simulated RMON 
i Point to MOV @#PSW, <SP) instruction 
; Store MOV #0, <SP) instruction 
; Store value following instruction 



OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 



11*: 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



See if we need to set up the name of a secondary start-up command 
file for the job or other info provided by initiating job. 

; Get pointer to buffer with file name 
i Br if no secondary start-up file 
; Save index # of initiating job 

; Point to start of name string 

iPoint to ceil in context block 

; Move name into context block 

J Loop till asciz null reached 

i Save job number 

J Get pointer to Q element used as buffer 

J Free the Q element 

.: Restore job number 

; Say no project number 



MOV 


LPR0J(R1).R4 


BEQ 


10* 


MOVB 


IB*IJ(R4), SPIJ 


MOV 


R4, R2 


ADD 


#IB*SF2, R2 


MOV 


#SUCF2, R3 


MOVB 


(R2)+, (R3) + 


BNE 


11* 


MOV 


R 1 , - ( SP ) 


MOV 


R4, Rl 


CALL 


QFREE 


MOV 


(SP)+, Rl 


CLR 


LPROJ(Rl) 



Determine if this is a primary, virtual, or detached line 



10*: 



CMP 
BGT 
CMP 
BLE 



Rl, #LSTDL 

1* 

R 1 , #LSTPL 

2* 



REAL OR VIRTUAL LINE? 
BR IF VIRTUAL 
REAL OR DETACHED LINE? 
BR IF REAL 



Initialization for detached jobs only. 



OOOOOOG OOOOOOG 



BIS 
BR 



#*DETCH, LSW(Rl) i REMEMBER THIS IS A DETACHED JOB 
3* 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOC OOOOOOG 



>*: 



Initialization for primary lines only. 

MOV ILSW2<R1), LSW2<Rl)j INIT SOME LSW TABLES 

MOV ITRMTP<R1), LTRMTP<R1); SET DEFAULT TERMINAL TYPE 

BIC #*CTRLS!*CTRL0,LSW3(Rl)j Enable terminal output 

BR 3* 



> Initialization for virtual lines only. 



TSEXC2 
NEWUSR - 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 



— Misc 

- Start 



002624 
002630 
002636 
002644 
002652 
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a neui time-sharing job 



Copy some information from parent line. 



016102 OOOOOOG 

016261 OOOOOOG OOOOOOG 

016261 OOOOOOG OOOOOOG 

016261 OOOOOOG OOOOOOG 

016261 OOOOOOG OOOOOOG 



lli: 



MOV 
MOV 
MOV 
MOV 
MOV 



LNPRIM(Rl). R2 J GET PRIMARY LINE # 
LSW2<R2), LGW2<R1) 
LTRMTP<R2>, I TRMTP(R1 ) 
LPR0J(R2), LPR0J<R1) 
LPR0G<R2), LPR0G<R1) 



See if uje should start line with deferred echo 



002660 032761 OOOOOOG OOOOOOG 3*: 

002666 001403 

002670 052761 OOOOOOC OOOOOOG 



BIT #*DEFER.. LSW2(Rl)i Is deferred echo wanted? 

BEti 6$ ;Br if not 

BIS #<*DODFR!*GCECO>, LSW3(R1) ; Start deferring now 



002676 
002702 
002706 
002712 



004737 OOOOOOG 

013700 OOOOOOG 

072027 000012 

010037 OOOOOOG 



CALL 


SETMAP 


MOV 


DFJMEM, RO 


ASH 


#10. ,R0 


MOV 


RO, MAXMEM 



002716 012706 OOOOOOG 



000466 



; Set up mapping registt'rB for job. 

i 

6*: CALL SETMAP ; SET UP MAPPING REGISTERS FOR THE JOB 

GET DEFAULT # K-BYTES OF MEMORY FOR JOB 

CONVERT TO ADDRESS 

SET AS DEFAULT UPPER LIMIT FDR JOB 

Switch to stack in job'c context area. 

MOV #JSTK, SP ; SWITCH TO CONTEXT-BLOCK STACK 
Enter code to load KMON. 

BR LDKMON : GO LOAD KMON 



TSEXC2 
STOP 

i 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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002724 
002730 
002732 
002750 
002754 
002762 
002770 
002776 
003004 
003012 
003014 
003020 
003022 
003026 
003030 



003034 
003040 



003046 
003054 
003056 
003064 
003072 



003100 
003106 
003114 
003120 
003124 
003132 
003140 
003146 
003152 
003154 
003160 
003164 
003170 
003174 
003202 
003206 
003212 



SBTTL STOP 



Stop program execution ?< enter KMON 



STOP is jumped to when the job wants to terminate its execution and 
enter KMON. This is usutilly caused by .EXIT. .CHAIN or CTRL-C. 



113701 
001007 



OOOOOOG 



5T0P: 



012706 OOOOOOG 



1*: 



052761 
012737 
052737 
032761 
001010 
106537 
000316 
112637 
005046 
106637 



004737 
042761 



032761 
00 1 4 1 1 
052761 
052761 
042761 



052737 
042761 
016146 
106537 
052761 
042761 
042761 
105737 
001406 
013700 
162700 
004737 
004737 
013737 
012637 
011637 
012661 



OOOOOOG OOOOOOG 
177777 OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

000052 

OOOOOOG 

000052 



MOVE 


CORUSR, Rl 


13 NE 


1* 


DIE 


#EM*SJN, <SP) 


MOV 


#JSTK, SP 


EWABL 




BIS 


#*NOUCR, LSW9<R1) 


MOV 


#~1,EMTLEV 


BIS 


ttUPMODE, ©#PSW 


BIT 


#*INKMN, LSW4<R1) 


BNE 


2* 


MFPD 


©#52 


SWAB 


<SP) 


MOVE 


(SP)+, UERBEV 


CLR 


-<SP) 


MTPD 


@#52 



GET JOB # OF CURRENT JOB 

IF SHOULD NOT BE ZERO 

DIE IF JOB # =^ 

RUN ON JOB'S CONTEXT-BLOCK STACK 

MAKE SURE INTERRUPTS ARE ENABLED 

Tell DOCMPL not to run user compl routines 

SAY JOB IS NOT EXECUTING AN EMT 

MAKE SURE PREVIOUS-MODE = USER 

IS KMON RUNNING NOW? 

BR IF YES 

GET JOB'S ERROR CELLS 

PUT (53) IN LOW-ORDER BYTE 

SAVE USER SPECIFIED ERROR SEVERITY LEVEL 

NOW CLEAR USER ERROR SEVERITY 



Do general cleanup on exiting job. 



003366' 2$: CALL 

OOOOOOG OOOOOOG BIC 



CLENUP ; CLEAN UP STATUS OF JOB 

#*NOUCR» LSW9<R1 ) i Reenable user completion routine processing 



See if we should force logoff of this job 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



BIT 
BEQ 
BIS 
BIS 
BIC 



#«DISCN. LSW(Rl) 
LDKMON 

#«DOOFF, LSW(Rl) 
#*NOIN, LSW3<R1) 
#*DISCN, LSW<R1) 



DID A LINE DISCONNECT OCCUR? 

BR IF NOT 

FORCE LOGOFF 

IGNORE INPUT FROM LINE DURING LOGOFF 

ACKNOWLEDGE DISCONNECT 



Read KMON into memory and enter it 



OOOOOOG OOOOOOG LDKMON: 
173330 OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 3$: 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



BIS 


#UPMODE, ©#PSW 


BIC 


#173330, LJSW<R1); 


MOV 


LJSW<R1).-<SP) i 


MFPD 


@#ERRLOC ; 


BIS 


#*INKMN, LSW4(Rl.>j 


BIC 


#*MAP0K,LSW7<R1); 


BIC 


#*VIRJB> LSW9(R1); 


TSTB 


VSWPFL ; 


BEQ 


3* i 


MOV 


KMNTOP, RO i 


SUB 


#KMNBAS, RO i 


CALL 


SUTOP J 


CALL 


SETMAP ; 


MOV 


KMNfOP, UHIMEM ; 


MOV 


(SP)+,@#ERRLOC ; 


MOV 


( SP ) , ©# JSWLOC ; 


MOV 


(SP)+, LJSW<R1.^ 



SET USER-PREVIOUS-MODE IN PS 

CLEAN OUT SOME FLAGS IN JOB STATUS WORD 

GET CURRENT JOB STATUS WORD 

GET JOB'S ERROR CELLS 

SAY KMON IS RUNNING 

SAY CONTEXT BLOCK MAPPING DATA IS INVALID 

SAY THIS IS NOT A VIRTUAL JOB 

IS THIS A NON-SWAPPING SYSTEM? 

BR IF YES — DON'T CHANGE MEMORY ALLOCATION 

GET ADDRESS ABOVE TOP OF KMDN 

GET AMT OF MEMORY NEEDED FOR KMON 

SET TOP OF MEMORY FOR JOB 

MAKE SURE MEMORY MAPPING SET FOR KMON 

SAY JOB CAN ACCESS UP TO TOP OF KMON 

SET ERROR CELLS 

SET JSW 



003216 012703 000017 



Set up status in user channel # 17 to allow us to access kmon file. 
MOV #17, R3 ; USE USER CHANNEL #17 



i 
i 
i 



TSEXC2 


— riisc 


. TSX~P3 


us E X e c u 


STOP 


— Stop 


program 


executio 


58 


003222 






59 


003232 


013703 


0000000 


60 


003236 


062703 


OOOOOOG 


61 


003242 


012700 


000005 


62 


003246 


012704 


0000000 


63 


003252 


012423 




64 


003254 


077O01.> 




65 








66 








67 








68 


003256 


013703 


OOOOOOG 


69 


003262 


162703 


OOOOOOG 


70 


003266 


000241 




71 


003270 


006003 




72 


003272 






73 


003326 


103005 




74 


003330 






75 








76 








77 








78 


003342 


013746 


OOOOOOG 


79 


003346 


106606 




80 








81 








82 








S3 


003350 


005061 


OOOOOOG 


84 








85 








86 








87 


003354 


012746 


OOOOOOG 


88 


003360 


013746 


OOOOOOG 


89 


003364 


000002 
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1$: 



. PURGE R3 

MOV CXTRMN, R3 

ADD #R*CH17, R3 

MOV #5, RO 

MOV #KMNCHN. R4 

MOV (R4)+, <R3)+ 

SOB RO, 1* 



i MAKE SURE CHANNEL 17 IS FREE 

iBASE OF JOB CHANNEL AREA 

; POINT TO AREA FDR CHANNEL # 17 

; # WORDS TO MOVE 

; POINT TO BLOCK WITH KMON SAVED STATUS 

;SET UP INFO IN USER CHANNEL 17 BLOCK 



; Now read Kmon into user's program space. 



KMNTOP, R3 
#KMNBAS> R3 



i GET TOP OF MEMORY ADDRESS FOR KMON 
; SUBTRACT BASE ADDRESS OF KMON 



MOV 

SUB 

CLC 

ROR R3 i CVT TO # WORDS TO READ 

. READW #CSIARE> #17, #0, R3, #32. ; READ IN KMON 

BCC 2* i BR IF READ OK 

DIE #EM*KRE i SYSTEM HALT IF KMON READ ERROR 

Set up Kmon user-mode stack pointer. 



?$: MOV KMNSTK, -<SP.> 
MTPD SP 



;GET KMON STACK POINTER 
iSET IN USER -MODE SP 



Give Kmon a full time-slice. 

CLR LQUAN<R1) ; CLEAR JOB TIME QUANTUM 
Use RTl to enter Kmon in user mode. 



MOV 
MOV 
RTI 



#UMODEi - < SP ) 
KMNSTR, -<SP) 



i USER -MODE PS 

; STARTING ADDRESS IN KMON 

; ENTER KMON IN USER MODE 



TSEXC2 ■ 
CLENUP -■ 

1 
2 
3 
4 
5 

/- 

7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 

le 

19 
20 
21 
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003366 
003370 
003372 
003374 
003376 
003404 
003410 
003414 
003420 
003426 
003434 
003440 
003444 

22 003450 

23 003454 

24 003460 

25 003466 
26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 
49 
50 
51 
52 

53 003576 

54 003602 

55 003604 

56 003612 



003472 
003500 
003502 
003506 
003514 
003516 
003522 
003530 
003536 
003544 



003552 
003556 
003560 
003564 



003570 



SBTTL CL.ENUP 



Dd general cleanup when a job stops 






CLENUP is called to do 1/0 rundown and other general cleanup 
operations when a job stops. 



Inputs; 
Rl = viob index number 



010146 
010246 
010446 
010546 
042761 
005061 
005061 
005061 
042761 
042761 
005061 
005061 
005061 
005037 
005037 
012737 
00 5037 



032761 
00 1 424 
105037 
032737 
001413 
012700 



OOOOOOC 
OOOOOOG 
OOOOOOG 

ooooooe 

OOOOOOC 
OOOOOOC 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 



CLENUP: MOV 
MOV 
MOV 
MOV 
BIC 
CLR 
CLR 
CLR 
BIC 
BIC 
CLR 
CLR 
CLR 
CLR 
CLR 
MOV 
CLR 



R 1 , - ( SP ) 

R2, -<SP) 

R4, -(SP) 

R5, -iSP) 

#<*RDSAV!*GEMAR>, LSWll (Rl ); No longer reading in SAV file 

LSLEPH(Rl) i CLEAR . TWAIT SLEEP TIME 

LSLEPL<R1) 

LSPND<R1) i CLEAR . SPND COUNT FOR JOB 

#<*IOMAP!*MLOCK.'*DBGMD!*NOLF>, LSW6<R1> ; CLEAN OUT LSW6 

#*DBGBK!*NOABT!*RNMLK, LSW9(Rl)iCl ear LSW9 flags 

LRDTIM(Rl) ; CLEAR ANY TT-READ TIMEOUT 

LSCCA(Rl) > REMOVE CONTROL~C TRAP CONTROL 

LBRKCH<R}} i CLEAR BREAK CHARACTER 

EMTRAD 

SPCPS 

#EMTCAS. EMTCAD ; Reset return stack for completion routines 

D. FLAG j Clear debugger control flags 



OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 

000003 



OOOOOOG 



042761 OOOOOOG OOOOOOG 11*: 



If double control-C was typed., echo this to the log fili 



J Br if not 

i Reset chain-in-progress flag 

jAre we logging input characters?' 

i Br if not 

; Echo '"c 

twice 
Log Cr Lf 
Clear control-C abort flag 



BIT 


#«CTRLC, LSW<R1) 


BE« 


12* 


CLRB 


CINFLG 


BIT 


#LF*IN. LOGFLG 


BEO 


11* 


MOV 


#3, RO 


OCALL 


LOGCHR 


OCALL 


LOGCHR 


OCALL 


LOGCR 


BIC 


#*CTRLC.LSW(R1) 



Abort all I/O for this job 



105737 
001004 
004737 
004737 



OOOOOOG 

OOOOOOG 
OOOOOOG 



12*: 



TSTB 


CINFLG 


BNE 


16* 


CALL 


CANIOT 


CALL 


lOHALT 



i Are we doing a .CHAIN? 

i Br if yes 

> Cancel any pending . TIMIO requests for job 

; Abort pending I/O operations for this job 



Do any real-time associated cleanup 



120137 
001004 

000771 



OOOOOOG 



16*: OCALL RTSTOP 

Free the USR 
4*: 



CMPB 


R 1 , USR JOB 


BNE 


15* 


OCALL 


FREUSR 


BR 


4* 



; DO REAL-TIME CLEANUP 



ARE WE HOLDING THE USR? 

BR IF NOT 

RELEASE IT 

WE MAY HAVE LOCKED IT MORE THAN ONCE 



TSEXC2 
CLENUP - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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003614 120137 
003620 001003 
003622 



003630 



0000000 



003636 



003644 



003652 005737 
003656 001403 
003660 



003666 016100 

003672 00 1 407 

003674 005061 

003700 010146 

003702 010001 

003704 004737 

003710 012601 



0000000 



0000000 
OOOOOOG 

OOOOOOG 



003712 016100 OOOOOOG 

003716 001407 

003720 005061 OOOOOOG 

003724 010146 

003726 010001 

003730 004737 OOOOOOG 

003734 012601 



003736 004737 004060 



003742 1 3704 OOOOOOG 

003746 001405 

003750 013705 000002G 

003754 004777 OOOOOOG 

003760 000770 



; Free 
15$: 



lob context block buffer 



CMPB 

BiME 

OCALL 



Rl> CXBOWN 

3* 

FRECXT 



;Are we holding context block buffer? 

; Br if not 

.; Free context block buffer 



> Free the Special Device data base 

3*: OCALL FRESPD i FREE SPECIAL DEVICE DATA BASE 

■> Cancel any pending mark-time requests for this job 

OCALL CANMKT ; CANCEL ALL MARK -TIME REQUESTS FOR JOB 

Cancel any monitoring requests for this job 

OCALL MONABT j Cancel any monitoring requests 

Cancel any pending message requests for this job 

Is message system included in system? 

Br if not 

Cleanup message system 



TST 


VMAXMC 


BEG 


14* 


OCALL 


MSGABT 



Undo Break key connection. 



14*: 



MOV 


LBRKCQ(R1),R0 


BEQ 


17* 


CLR 


LBRKCQ(Rl) 


MOV 


Rl, -<SP) 


MOV 


RO, Rl 


CALL 


QFREE 


MOV 


(SP)+, Rl 



GET ADDRESS OF BREAK QUEUE ENTRY 

BR IF NONE 

SAY NO BREAK KEY CONNECTION 

SAVE JOB INDEX NUMBER 

GET QUEUE ENTRY ADDRESS FOR QFREE 

FREE THE QUEUE ENTRY 

GET BACK JOB NUMBER 



Undo TT input completion routine connection 



MOV 


LTTCR<R1), RO 


BEQ 


1* 


CLR 


LTTCR(R1> 


MOV 


R 1 , - < SP ) 


MOV 


RO, Rl 


CALL 


QFREE 


MOV 


(SP)+, Rl 



17*: MOV LTTCR<R1),R0 ; GET ADDRESS OF QUEUE ENTRY 

BR IF NONE 

SAY NO COMPL ROUTINE 
SAVE JOB INDEX NUMBER 
GET QUEUE ENTRY ADDRESS FOR QFREE 
FREE THE QUEUE ENTRY 
GET BACK JOB NUMBER 

Clean up all pending completion routine requests for this job 

1*: CALL CANCPL > Cancel all pending completion routines 

Close all shared files For this job. 

5$: MOV JCDB, R4 i GET ADDRESS OF NEXT CDB FOR JOB 

BR IF NO MORE 
Get par pointer for CDB 
CLOSE THE CDB 
SEE IF THERE ARE MORE TO DO 

Release any PLAS regions created for the job 



MOV 


JCDB, R4 


BEQ 


6* 


MOV 


JCDB+2, R5 


CALL 


eCLSCDB 


BR 


5* 



c 
c 
< 

i 
i 
I 
€ 
€ 
€ 

( 
C 
« 

i 
i 

i 
1 
i 
i 



TBEXC2 


— Hisc 


TSX--P1 


us b. X e c u 


CLENUP - 


— Do general cl 


(?anup ujh 


115 








116 


003762 


005737 


OOOOOOG 


117 


003766 


001403 




lis 


003770 






119 








120 








121 








122 


003776 


005037 


0000000 


123 


004002 


005037 


OOOOOOG 


124 


004006 


105037 


OOOOOOG 


125 








126 








127 








128 


004012 


005037 


OOOOOOG 


129 


004016 


105037 


OOOOOOG 


130 


004022 


005002 




131 


004024 


005062 


OOOOOOG 


132 


004030 


005062 


OOOOOOG 


133 


004034 


062702 


000002 


134 


004040 


020227 


000016 


135 


004044 


101767 




136 








137 








138 








139 


004046 


012605 




140 


004050 


012604 




141 


004052 


012602 




142 


004054 


012601 




143 


004056 


000207 
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6$: 



TST 


VPLAS 


BEQ 


13* 


OCALL 


PLSXIT 



Release trap control for job 



13*: 



CLR 


UTRPAD 


CLR 


UFPTRP 


CLRB 


FPUUSE 



IS PLAS SUPPORT GENNED INTO SYSTEM? 

BR IF NOT 

FREE ANY PLAS REGIONS AND WINDOWS 



Undo . TRPSET 

Undo . SFPA 

Tell system that FPU is not in use 



Release any associated shared run-time systems 



9*: 



10*: 



CLR 


CURRDB 


CLRB 


DOTRMP 


CLR 


R2 


CLR 


RPAR(R2) 


CLR 


RPDR(R2) 


ADD 


#2.. R2 


CMP 


R2, #2«7 


BLOS 


9* 


Finished 




: MOV 


<SP)+, R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 





DISASSOCIATE RUN-TIME SYSTEM 
Disable fast TRAP mapping 
INIT PAR INDEX 
RESET PAR MAPPING INFO 

ADVANCE INDEX 

DONE ALL? 

LOOP IF MORE TO DO 



TSEXC2 
CAWCPL 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 

45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
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-- Cancel all pending completion routin<?£ 



SBTTL CANCPL 



Cencel all pending completion routines 



004060 010546 



004062 



105037 0000000 



CANCf^L is called during job exit cleanup to cancel any pending completion 
routines. User-mode completion routines are removed from the pending 
list* system-mode completion routines are forced to be called. 

Inputs: 
Rl = viob index number. 

CANCPL: MOV R5, -<SP) 

Say we are not in a completion routine now 

1*: CLRB CURCP 'Say not executing in completion rtn now 

If any I/O is in progress for job) suspend execution while uie 
wait for it to finish. 



004066 

004074 126137 OOOOOOG 0000000 

004102 003404 

004104 012700 OOOOOOG 

004110 004737 OOOOOOQ 



004114 

004122 005761 OOOOOOG 

004126 001005 

004130 126137 OOOOOOG OOOOOOG 

004136 003351 

004140 000403 



DISABL 

CMPB LI0CNT<R1),NPCCB 

BLE 2* 

MOV #S*ICWT, RO 

CALL QNSPND 



*•«■ Disable interrupts «•* 

Is any I/O in progress for job? 

Br if not 

Suspend job till I/O completes 

Suspend execution of job 



ENABL 




TST 


LCMPL<R1) 


BNE 


3* 


CMPB 


LI0CNT<R1).NPCCB 


BGT 


1* 


BR 


5* 



004142 004737 OOOOOOG 



004146 000745 



See if there are any pending completion routines 

«■* Enable interrupts *« 

Is there a pending completion routine? 

Br if yes 

Is all I/O finished too? 

If not, then wait till it is 

All I/O is finished and no compl rtns pend 

i 

> There is at least one pending completion routine. 

.: Now call SCHED to force pending system-mode routines to be run 

3*: CALL SCHED ; Force completion routine execution 

Go back and make sure all completion routines have been taken care of 

BF^ 1* ; Loop till all completion routines finished 

All I/O has terminated and there are no pending completion routines. 
Free any cache control blocks that were pending when job aborted. 



004150 005737 OOOOOOG 

004154 001406 

004156 013705 OOOOOOG 

004162 001737 

004164 004777 OOOOOOG 

004170 000772 



004172 012605 
004174 000207 



6^: 



9*: 



TST 


JOBCCB 


BEQ 


9* 


MOV 


JOBCCB, R5 


BE« 


1* 


CALL 


©CSHFIN 


BR 


6* 


Fini&hed 




MOV 


<SP)+,R5 


RETURN 





; Any pending cache control blocks 

; Br if not 

; Get pointer to 1st pending control block 

i Br if none left pending 

; Free the cache control block 

5 Loop to free any others 



c 
f 

i 
i 

1 c 

c 

c 

< 

, c 



c 
t 

€ 

i 

c 
1 
1 
i 
1 
i 



OOOOOOG OOOOOOG LOGOFF: 
004666 ' 



TSEXC2 — Misc. TSX-Plus Execu MACRO V05. 04 
LOGOFF - Log off a job 



1 

r-) 

tz. 

3 
4 
5 
6 
7 
8 
9 

10 004176 

11 004204 

12 004206 
13 

14 
15 

16 004212 

17 004220 

18 004222 

19 004226 

20 004232 
004236 
004240 
004244 
004246 

25 004250 

26 004254 

27 004256 

28 004262 

29 004270 

30 004272 

31 004300 

32 004304 

33 004312 

34 004314 

35 004322 

36 004324 

37 004332 
38 

39 
40 

41 004334 
004340 
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SBTTL LOGOFF — Log off a job 



LOGOFF is jumped to log off the current job. 

All tables for the job are reset and then the scheduler is entered 

to look for another job to run. 



Inputs: 
Rl = Job number of job being logged off. 



21 
22 
23 
24 



43 
44 
45 

46 004342 

47 004346 

48 004350 

49 004354 

50 004356 

51 004364 

52 004366 

53 004372 

54 004374 

55 004376 

56 004402 

57 004404 



032761 
001402 
000137 



032761 
001045 
013704 
013705 
062705 
005504 
023704 
101033 
103403 
023705 
103027 
116103 
032763 
001421 
042763 
004777 
026161 
001352 
032761 
00 1 346 
032761 
001342 



020127 
003466 



105337 
010102 
113703 
001422 
032763 
001016 
016100 
020300 
001412 
016000 
005005 
005205 



BIT #*DETCH, LSW<R1) ; IS THIS A DETACHED JOB LOGGING OFF? 
BEQ 26$ ;Br if not 

.MP 4* 



Wait for all TT output for the job to complete. 



OOOOOOG OOOOOOG 26* : 

OOOOOOG 
OOOOOOG 

000454 



OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOC 

OOOOOOG 



10*: 



16*: 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



12*: 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 



BIT 

BNE 

MOV 

MOV 

ADD 

ADC 

CMP 

BHI 

BLD 

CMP 

BHIS 

MOVB 

BIT 

BEG 

BIC 

CALL 

CMP 

BNE 

BIT 

BNE 

BIT 

BNE 



#*VNOTT, LSW(R1} 

12* 

SYTIMH, R4 

SYTIML, R5 

#5. #60. ,R5 

R4 

SYTIMH, R4 

12* 

16* 

SYTIML, R5 

12* 

LNPRIM(R1 >. R3 

#*DILUP, LSW(R3> 

12* 

#*CTRLS, LSW3(R3) 

©TRNSTR 



IS JOB CONNECTED TO TERMINAL? 

BR IF NOT < DON'T WAIT FOR OUTPUT) 

Get high-order time-of-day 

Get low-order time-of day 

Add time to allou for logoff message 

Propogate carry 

Have we waited long enough? 

Br if yes 

Br if not 

Compare low-order time 

Br if have waited long enough 

GET PRIMARY LINE NUMBER 

IS PRIMARY LINE STILL LOGGED ON? 

BR IF NOT 

CLEAR CTRL-S SUSPEND 

MAKE SURE OUTPUT IS GOING 
LOTSPC(Rl),LOTSIZ(Rl)i ANY CHARS LEFT TO TRANSMIT? 
10* j WAIT FOR ALL OUTPUT TO COMPLETE 

#<*DHBF1 !*DHBF2>, LSW10(R1 )i DHll buffer being transmitted? 
10* iWait for DHll to finish 

#*XCHAR,LSW3<R1>; Wait for last char to go out 
10* 



See if this is a primary or virtual line logging off. 



CMP 

BLE 



R 1 , #LSTPL 
1* 



Log off a virtual line. 



24*: 



DECB 


PVON 


MOV 


R1,R2 


MOVB 


SPIJ, R3 


BEQ 


22* 


BIT 


#*DISCN, LSW(R3) 


BNE 


22* 


MOV 


LNPRIM<R1),R0 


CMP 


R3, RO 


BEQ 


22* 


MOV 


LSECPT(RO),RO 


CLR 


R5 


INC 


R5 



i PRIMARY OR VIRTUAL LINE? 
iBR IF PRIMARY LINE 



Count # primary & virtual lines on 

Save virtual line number 

Get # of process that started us 

Br if unknown 

Is that process terminating now? 

Br if yes — Switch to primary 

Get our primary process # 

Switching back to primary process? 

Br if yes 

Get pointer to subprocess # table 

I nit subprocess # 

Increment subprocess # 



f 
f 
i 
i 
I 

i 
I 

€ 

t 

€ 
€ 

i 
1 
4 

i 
i 



TBEXC2 
LOGOFF - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 
97 

98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
Hi 
112 
113 
114 



— Misc. TSX--P1U5 

- Log oPf a job 
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004406 
004412 
004414 
004416 
004420 
004422 
004424 
004430 
004436 
004440 
004444 
004450 
004452 



004460 
004462 
004466 
004470 
004472 
004474 
004500 
004502 
004504 
004506 
004512 
004514 



004516 
004522 
004526 
004532 
004534 
004540 
004544 
004552 
004554 



004560 
004566 
004570 
00^576 



004604 
004610 
004612 



020527 
101003 
120320 
00 1 372 
000407 
005005 
016103 
032763 
00 1 423 
016203 
120163 
001003 



005004 
016305 
120225 
001405 
005204 
020427 
002772 
000401 
105045 
005062 
010201 
000464 



105337 
105337 
013700 
001002 
013700 
010061 
016161 
010103 
010161 



032761 
00 1 406 
012761 
052761 



016104 
001401 
005014 



0000000 



OOOOOOG 

ooooooe 

OOOOOOG 
OOOOOOG 



OOOOOOG 



>3*: 



CMP 


R5, #MAXSEC 




Checked a 


BHI 


22* 




Br if yes 


CMPB 


R3. (R0) + 




Search fo 


BNE 


24* 




Loop till 


BR 


23* 




Found sub 


CLR 


R5 




Say we ar 


MOV 


LNPRIM(Rl), 


R3 


Get prima 


BIT 


#*DILUP,LSW<R3) 


Is the pr 


BEQ 


2* 




Br if not 


MOV 


LNPRIM<R2), 


R3 


Get prima 


CMPB 


Rl, LNMAP(R3) 


Are we ru 


BNE 


6* 




Br if not 


OCALL 


LINSWT 




Suj i t c h b a 



ill subprocess entries? 

— Switch back to primary 
)r originating process in table 

found 
•process to switch back to <R5=#) 
e switching to primary process 
ary line number 
imary line still logged on? 

iry process index 
mning on line being logged off? 
- Someone must have killed us 
)ck to initiating process 



At this point R3 has the primary line number. 

Rl & R2 have the virtual line number. 

Remove the virtual line from the primary line's ownership tabl^ 



OOOOOOG 



OOOOOOG 



OOOOOOG 



6*: 
5*: 



3*: 
2*: 



CLR 


R4 


MOV 


LSECPT(R3> 


CMPB 


R2, (R5) + 


BEQ 


3* 


INC 


R4 


CMP 


R4, #MAXSEC 


BLT 


5* 


BR 


2* 


CLRB 


~<R5) 


CLR 


LNPRIM<R2) 


MOV 


R2, Rl 


BR 


4* 



R5 



CHECK 1ST VIRTUAL LINE ENTRY 

POINT TO TABLE OF VIRTUAL LINE #'S 

IS THIS THE VIRTUAL LINE ENTRY? 

BR IF YES 

CHECK NEXT ENTRY 

CHECKED ALL? 

BR IF MORE TO CHECK 

STRANGE — COULDN'T FIND VIRTUAL LINE 

SAY VIRTUAL LINE NOT OWNED BY PRIMARY LINE 

REMOVE PRIMARY LINE NUMBER FOR VIRTUAL LINE 

GET BACK VIRTUAL LINE NUMBER 



Disconnect a primary linf?. 

This forces the disconnect of any associated virtual lines. 



OOOOOOG 
OOOOOOG 
000004G 

OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 



J*: 



21*: 



DECB 

DECS 

MOV 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 



NUMON 

PVON 

EMTBLK+4, RO 

21* 

VOFFTM, RO 

RO. L0FFTM(R1 ) 



; # PRIMARY LINES ON 
;# PRIMARY &: VIRTUAL LINES ON 
; Get time to drop DTR 
j Br if time parameter specified 
i Get sysgen specified time 
> Drop DTR after this much time 
ILSW2<R1), LSW2(R1>; Reset line status flags 
R1,R3 iSAVE PRIMARY LINE NUMBER 

R1.LNMAP<R1) jREASSOCIATE TS LINE WITH PRIMARY LINE 



OOOOOOG OOOOOOG 

000012 OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 



If this is an autobaud line, start time which will reset the line 
speed to 9600 baud after a short delay to get the logoff message out. 

BIT #*AUTO. ILSW2(Rl.>i Is autobaud selected for this line? 

BEQ 14* .; Br if not 

MOV #10. .. LABTIM<R1) > Start autobaud timer for this line 

BIS #*NABRS, LSW9(R1); Set flag saying we need to reset the speed 

Reset all character translation for the line 



14*: MOV LCXTBL(R1)» R4 

BEQ 25* 
CLR <R4) 



i Get pointer to lines translation table 
i Br if no translation table 
; Say no translation in effect 



TSEXC2 
LOGOFF - 

115 
116 
1 1 7 

lis 

119 
120 
121 
122 
123 
124 

126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
1 36 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
1 c>5 
166 
167 
168 
169 
170 
171 



— Hisc. TBX-F:ius 

- Log off a job 



004614 
004616 
004622 
004626 
004630 
004632 
004634 
004642 
004644 
004652 
004656 
004660 
004662 
004664 



004666 
004672 
004674 



004702 
004706 
004710 



004716 
004722 
004726 
004730 
004734 
004740 



004742 
004746 
004752 
004756 
004762 
004766 



004772 
004776 
005002 
005006 
005012 
005020 
00S024 



00 1 403 



005737 
001403 



012702 
026201 
001002 
005062 
162702 
003370 



016102 
016100 
004737 
005061 
005061 
005061 



004737 
005061 
005061 
005061 
042761 
005061 
012700 
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Force disconnect of all associated virtual lines. 



005004 
016305 
020427 
002016 
111501 
001411 
032761 
001005 
052761 
004737 
105025 
005204 
000757 
010301 



005737 0000000 



0000000 
0000000 



0000000 OOOOOOG 
0000000 



OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
000002 



25*: CLR R4 ; START WITH 1ST VIRTUAL LINE 

GET ADDRESS OF VIRTUAL LINE TABLE 

9*: CMP R4, #MAXSEC ; CHECKED ALL VIRTUAL LINE ENTRIES 

BR IF YES 

GET VIRTUAL LINE NUMBER 

BR IF NO ASSOCIATED VIRTUAL LINE HERE 
IS JOB DOING LOGOFF PROCESSING NOW? 
BR IF YES 

FORCE LOG OFF OF THIS VIRTUAL LINE 
FORCE ITS EXECUTION 

CLEAR ENTRY IN PRIMARY LINE'S TABLE 
CHECK NEXT ENTRY 

GET BACK PRIMARY LINE NUMBER 

Release any display windows for job 



S$: 



7*: 



<:lr 


R4 


MOV 


LSECPT<R3), R5 


CMP 


R4, #MAXSEC 


BGE 


7* 


MOVB 


(R5)>R1 


BEQ 


8* 


BIT 


#*LOFCF, LSW9<R1) 


BWE 


8* 


BXS 


#*DISCN, LSW(Rl) 


CALL 


FORCEX 


CLRB 


(R5) + 


INC 


R4 


BR 


9* 


MOV 


R3, Rl 



4*: 



TST 
BEQ 
OCALL 



VMXWIN 

20$ 

WINREL 



Do cleanup of PLAS regionr. 



>0$: 



TST 


VPLAS 


BEO 


17* 


OCALL 


PLSOFF 



Is windou; support included in system? 

Br if not 

Release uiindouis for job 



i Is PLAS support included? 

j Br if not 

j Do PLAS cleanup 



Say use are no other job 's parent 



; Say 


uie a 


17*: 


MOV 


18*: 


CMP 




BNE 




CLR 


19*: 


SUB 




BGT 



#LSTSL, R2 

LPARNT(R2), Rl 

19* 

LPARNKR2) 

#2, R2 

18* 



i Get # of last job 

; Are me that job's parent? 

j Br if not 

i No longer its parent 

;Check other jobs 



Free all memory assigned to the job. 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOC OOOOOOG 

OOOOOOG 

OOOOOOC 



MOV 


LBASE(Rl), 


R2 


MOV 


LNBLKS<R1) 


>R0 


CALL 


FREMEM 




CLR 


LNBLKS(Rl) 




CLR 


LMEMIW<R1) 




CLR 


LBASE<R1) 





GET BASE PAGE # ASSIGNED TO JOB 
GET # PAGES ASSIGNED TO JOB 
RELEASE THE MEMORY SPACE 
SAY ALL MEMORY DEASSIGNED 



Nouj clear line tables. 



; REMOVE JOB FROM RUN QUEUE 
) CLEAR LINE STATUS TABLES 



** DISABLE #» 



CALL DEQ 

CLR LSW<R1) 

CLR LSW4<R1) 

CLR LSW5<R1) 

BIC #-^C<*1STLG:>, LSW6(Rl)i CLEAR ALL BUT IST-LOGDN FLAG 

CLR LSW7<R1) 

MOV #<*DEAD!*HARDi*CARUP!*XCHAR>, RO ; FLAGS TO PRESERVE IN LSW3 



TSEXC2 


— Misc 


, TSX-Pl 


us E X e c u 


LOOOFF 


- Log 


ff a job 




172 


005030 


005100 




173 


005032 


040061 


OOOOOOG 


174 


005036 


005061 


OOOOOOG 


175 


005042 


005061 


OOOOOOG 


176 


005046 


105337 


OOOOOOG 


177 


005052 


120137 


OOOOOOG 


178 


005056 


001004 




179 


005060 


00 5037 


OOOOOOG 


180 


005064 


005037 


OOOOOOG 


181 








182 








183 








184 








185 


005070 


012706 


OOOOOOG 


186 


005074 


105037 


OOOOOOG 


187 


005100 






188 


005106 


105037 


OOOOOOG 


189 


005112 


000137 


OOOOOOG 
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COM RO 

BIG RO, LSW3(Ri) 

CLR LPARWr(Rl) 

CLR LIMSPAC<R1) 

DECB TOTON 

CMPB Rl^PMUSER 

ONE 13* 

CLR PMUSER 

CLR PMRUN 



i MASK TO CLEAR ALL OTHERS 

Say we have no parent job 

Say no user-defined activation characters 

TOTAL # JOBS 

ARE WE DOING A PERFORMANCE ANALYSIS? 

BR IF NOT 

SAY WE ARE DONE 



v^ob is logged off. 

Enter scheduler to find another one to run. 



13*: 



MOV 


#SS, SP 


CLRB 


CORUSR 


ENABL 




CLRB 


MAPUSR 


JMP 


EXEC 



SWITCH TO SYSTEM STACK 

NO USER RUNNING 

■tir^ ENABLE *# 

SAY MEMORY MAPPING NOT SET UP FOR ANY JOB 

GO LOOK FOR ANOTHER JOB TO RUN 



4 






TSEXC2 
TSXTX 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



-— Misc. TSX-Plus Execu MACRO V05. 04 
■- Trap Hand 1 ST 
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005116 
005122 
005130 
005132 
005136 
005142 
005144 
005150 
005152 
005156 
005160 
005164 
005166 
005172 
005174 



005200 
005204 
005212 
005214 

005216 



005232 
005234 



005252 
005256 
005260 



005264 
005270 



016604 
032766 
001036 
012705 
105737 
001416 
005737 
001013 
105737 
001010 
105737 
002005 
105737 
001002 
000137 



010437 
012737 
012605 
012604 
062706 
004737 



005737 
001407 



004737 
103002 
000137 



005737 
001010 



000004 
0000000 

000016 
OOOOOOG 

OOOOOOG 

ooooooe 

OOOOOOG 
OOOOOOG 
005460 ' 



OOOOOOG 
000170 



000004 
OOOOOOG 



OOOOOOG 



OOOOOOG 
005644 ' 

OOOOOOG 



. SBTTL TSXTX Trap Handler 

TSXTX is entered from the resident routines that catch traps to 4 and 10. 

Inputs: 

The following items are on the stack: 
0(SP) = Saved R5 
2<SP) = Saved R4 
4<SP) = Trap PC 
6<BP) = Trap PS 
R5 = Trap code <l=~.>Trap 4, 2==>Trap 10) 

See if trap occured in user or kernel mode. 



TSXTX: 



000006 



GET ADDRESS OF TRAP 

DID TRAP OCCUR IN USER OR KERNEL MODE? 

BR IF TRAP IN USER MODE 

SET KERNEL-MODE-TRAP ERROR CODE 

IS A JOB RUNNING NOW? 

IF NOT THEN TRAP MUST BE IN SYSTEM 

IN REAL-TIME INTERRUPT SERVICE ROUTINE? 

BR IF YES 

IN A FORK ROUTINE? 

BR IF YES 

ARE WE RUNNING AT INTERRUPT LEVEL? 

BR IF YES 

SHOULD WE ALWAYS CRASH ON KERNEL TRAP? 

BR IF YES 

ALWAYS ABORT IF KERNEL MODE TRAP 

We had a trap luithin a critical system routine. 
Cause a system crash. 

6*: MOV R4/ DIEARG ; Set address of trap location 

OOOOOOG MOV #EM*KTP, DIEMSG i Set address of abort message 

Restore R5 
Restore F?4 

Pop trap PC and PS 

Die without changing TRPAR5 

Trap in user mode. 

See if user was executing a real-time interrupt service routine. 



MOV 


4(SP),R4 


BIT 


#UMODE, 6(SP) 


BNE 


1* 


MOV 


#16, R5 


TSTB 


CORUSR 


BEQ 


6« 


TST 


CURVC 


BNE 


6* 


TSTB 


FRKPRI 


BNE 


6* 


TSTB 


INTLVL 


BGE 


6* 


TSTB 


VDMKTP 


BNE 


6* 


JMP 


TRPCOM 



MOV 


R4, DIEARG 


MOV 


#EM*KTP,DIEMSG 


MOV 


<SP)+, R5 


MOV 


(SP)+, R4 


ADD 


#4, SP 


CALL 


SYSHLl 



If: 



TST CURVC 

BEG 7* 

DIE #EM$RIT. R4 



ARE WE EXECUTING IN A REAL-TIME INT ROUTINE? 

BR IF NOT 

TRAP IN REAL-TIME INTERRUPT SERVICE ROUTINE 



See if a stack overflow occured. 



7*: 



CALL 


CHKUSP 


BCC 


2* 


JMP 


ABORT 



See if user did a . TRPGET 



>$: 



TST 
BNE 



UTRPAD 
3* 



IS USER STACK POINTER OK? 
BR IF OK 
ABORT JOB 



i DID USER DO A . TRPSET? 
i BR IF YES 



TSEXC2 
TSXTX 



- Misc. TSX~H.ius Ex ecu MACRO VOS. 04 
Trap Hand lei- 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 
77 

78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 



005272 
005276 
005302 
005304 
005310 



005316 
005320 
005322 
005326 
005330 
005334 
005336 
005340 



005342 
005346 
005352 
005354 
005356 
005362 
005370 
005374 
005376 
005400 



012704 
020527 
001466 
012704 
000463 



000004 
000001 

000010 



005312 004737 OOOOOOG 



106506 
012604 
016646 
106644 
016646 
106644 
010446 
106606 



012704 
020527 
001001 
005204 
010466 
013766 
005037 
01 260 S 
012604 
000002 



000006 
000004 





MOV 


#4. R4 




CMP 


R5, #1 




BEQ 


TRPCOM 




MOV 


#10. R4 




BR 


TRPCOM 


User 


did a 


. TRPSET 



3$: CALL CHKABT i 

■> Move trap PC •?< PS from kernel 



MFPD 


SP 


MOV 


(SP)+, R4 


MOV 


6 < SP ) , - ( SP ) 


MTPD 


-<R4) 


MOV 


4(SP), --<SP) 


MTPD 


~(R4) 


MOV 


R4, -<SP) 


MTPD 


SP 



SET TRAP VECTOR ADDRESS TO 4 
DID WE GET TRAP TO 4 OR 10? 
BR IF TRAP 4 

SET TRAP VECTOR ADDRESS TO 10 
00 DO COMMON TRAP HANDLING 



MAKE SURE JOB HASN'T BEEN ABORTED 
stack to user's stack. 
GET USER'S SP 

PUSH TRAP PS ON USER'S STACK 

PUSH TRAP PC ON USER'S STACK 

STORE UPDATED USER SP 



Enter user's .trpset routine. 



OOOOOOC 
000002 



000006 

OOOOOOG 000004 
OOOOOOG 



4*: 



MOV 


#UMODE ! UPMODE, R4 


CMP 


R5, #2 


BNE 


4* 


INC 


R4 


MOV 


R4, 6(SP) 


MOV 


UTRPAD/ 4(SP) 


CLR 


UTRPAD 


MOV 


<SP)+,R5 


MOV 


(SP)+, R4 


RTI 





GET USER-MODE PS 

WAS TRAP TO 4 OR 10? 

BR IF TRAP TO 4 

SET C-FLAG IN PS TO SIGNAL TRAP TO 10 

STORE NEW PS OVER TRAP PS 

SET ADDRESS OF USER'S ROUTINE 

RESET . TRPSET 



ENTER USER'S TRAP ROUTINE 



TSEXC2 — riisc. TBX-P.1US Ex ecu 
TSXTX — Trap Handler 
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3 

4 

5 

6 

7 

8 

9 
10 005402 
11 
12 
13 

14 005402 

15 005410 
16 

17 
IS 

19 005412 

20 005416 

21 005420 
22 

23 
24 
25 

26 005422 

27 005426 
23 005430 

29 005436 

30 005440 
31 

32 
33 

34 005444 

35 005446 

36 005452 

37 005456 



00 1 004 



106537 
005726 
001011 



OOOOOOG OOOOOOG 



000014 



105737 OOOOOOQ 

001406 

052764 OOOOOOG OOOOOOG 

012604 

000137 OOOOOOG 



010546 

012705 000012 
012704 000014 
000400 



TRPBPT is entered when a breakpoint <BPT) trap occurs to location 14 
and the system debugger is not connected to the user's job. 

1 n f < ti 1 5 : 

R4 = Job index number 
Information that has becM) pushed on the stack: 

PS -PC-R4 

TRPBPT: 

If breakpoint occurred in TSKMON^ enter debugger 

BIT #*INKMN, LSy4(R4); Is kmon running? 
BNE 1* ; Br if yes 



See if user provided a PC in location 14 



MFPD 

TST 

BNE 



e#i4 

(SP)H 

9* 



Get contents of loc 14 from user's job 
Did user provide a PC for trap? 
Br if yes 



User did not provide a PC for trap. 
Enter system debugger. 

1*: TSTB VDBFLG ; Is system debugger included in system? 

BEQ 9* i Br if not 

BIS #*DBGBK, LSW9<R4)i Set flag to force entry to debugger 

MOV <SP)+, R4 i Restore R4 

JMP SYSXIT iE.xit through routine that will test flag 

User provided a PC for BPT trap, enter his routine. 



9*: 



MOV 
MOV 
MOV 
BR 



R5, -(SP) 
#12, R5 
#14, R4 
TRPCOM 



) Get error code 

; Get trap location 

i Enter trap processing routine 



TSEXC2 
TSXTX - 

1 

3 
4 
5 
6 
7 
8 
9 
10 
U 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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005462 
005470 
005472 
005500 
005502 
005504 
005510 
005512 
005516 
005524 
005526 
005530 



005540 
005542 
005544 
005550 
005552 
005556 
005560 
005562 



005564 
005566 
005572 
005576 
005600 
005604 
005606 
005610 
005612 



I 
f 



General trap handling routine. 

InjJutB: 
R4 ~ Address of trap vector. 
F<5 ~ Error message number. 

If user provided a PC ?< PS in the user-mode trap vector^ then u»e enter 
his routine. Otherwise we abort the job. 



005460 010146 



TRPCOM: MOV 



R 1 , - < SP ) 



005614 
005616 
005622 



At this point the stack contains PS. PC, R4> R5, and Rl 



032766 
001005 
032737 
00 1 046 
000456 
004737 
103453 
113701 
032761 
001045 
106524 
005726 
001430 



0000000 000010 
0000000 OOOOOOG 

0000000 

OOOOOOG 
OOOOOOG OOOOOOG 



005534 004737 OOOOOOG 



106506 
012605 
016646 
106645 
016646 
106645 
010546 
106606 



106514 
052716 
012666 
106544 
012666 
012601 
012605 
012604 
000002 



000010 
000006 



BIT #UMODE>S. <SP) 

BNE 4* 

BIT #D$RUN, D. FLAG 

BNE 3* 

BR 2* 

4$: CALL CHKUSP 

BCS 2* 

MOVB CORUSR.Rl 

BIT #*INKMIM. LSW4(R1) 

BNE 2* 

,_,^ MFPD <R4) + 

^"' TST < SP ) + 

BEQ 1* 
i User supplied a PC, 

CALL CHKABT 
i Move trap PC & PS from fjernel 

MFPD SP 

MOV <SP)+, R5 

MOV 8. <SP), -<SP} 

MTPD -(R5> 

MOV 6 ( SP ) , -- ( SP ) 

MTPD -(R5) 

MOV R5. -<SP) 

MTPD SP 

Enter user's trap routine 



DID TRAP OCCUR IN USER OR KERNEL MODE? 

Br if in user mode 

Is the debugger program running now? 

Br if yes — reenter the debugger 

Trap occurred within the system 

SEE IF USER STACK POINTER IS OK 

BR IF INVALID STACK POINTER 

GET CURRENT JOB NUMBER 

DID TRAP OCCUR IN KMON? 

ALWAYS ABORT IF YES 

GET PC FROM USER SPACE 

DID USER PROVIDE PC? 

BR IF NOT — ABORT THE viOB 

MAKE SURE JOB HASN'T BEEN ABORTED 

stack to user stack. 
GET USER'S SP 

GET PS FROM TRAP 

PUSH ONTO USER'S STACK 

GET PC FROM TRAP 

PUSH ONTO USER'S STACK 

UPDATE USER'S SP 



OOOOOOC 
000010 

000006 



MFPD 

BIS 

MOV 

MFPD 

MOV 

MOV 

MOV 

MOV 

RTI 



<R4) i GET PS FROM 

#UMODE i UPMODE, < SP ) ; MAKE SURE 



TRAP VECTOR 
USER -MODE IS 



SET 



<SP)+, 8. <SP) 
--(R4) 

<SP)-+-, 6<SP) 
(SP)+. Rl 
(SP)+. R5 
(SP)+, R4 



STORE OVER TRAPPED PS 
GET PC FROM TRAP VECTOR 
STORE OVER TRAPPED PC 

RESTORE REGISTERS 

ENTER USER'S TRAP ROUTINE 



User did not specify a t'fap routine. 

If program is running with the debugger. 



enter it. 



005004 
113701 
032761 



OOOOOOG 
OOOOOOG 



1*: 
3*: 



OOOOOOG 



CLR 

MOVB 

BIT 



R4 
CORUSR, Rl 



Set flag saying trap was not in debugger 
Get job index number 

program running with debugger? 



\ 



TSEXC2 
TSXTX • 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
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005630 001403 
005632 012601 
005634 000137 0000000 



005640 016604 000006 



005644 010437 OOOOOOG 
005650 110537 OOOOOOG 
005654 004737 002724' 



BEG 


2* 


; Br if not 


MOV 


<SP)+, Ri 


■> Recover Rl 


JMP 


DBGTRP 


; Enter debuqqer 



Abort the job 

MOV 6(SP),R4 



; GET PC WHERE TRAP OCCURED 



Enter at ABORT to abort the current job. 
Inputs: 

R4 =■ Address of aborted instruction. 

R5 = Abort error code. 



ABORT: 



MOV 

MOVE 

CALL 



R4, ABRTAD 
R5, ABRTCD 
STOP 



SAVE ADDRESS OF ABORT 
SAVE ABORT ERROR CODE 
TERMINATE THE JOB 



TSEXC2 
FPTRPX - 

1 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
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005660 
005666 
005674 
005676 
005704 



005706 
005712 
005714 



005716 

DO 



23 
24 
25 
26 

27 005724 

28 005726 

29 005730 

30 005732 

31 005734 

32 005736 

33 005742 

34 005744 

35 005750 
36 

37 
38 

39 005752 

40 005760 

41 005762 

42 005764 

43 005770 

44 005774 

45 

46 
47 

40 006000 

49 006002 

50 006004 
51 

52 
53 
54 
55 
56 
57 006006 



052737 
042761 
012601 
023727 
101004 



012705 
011604 
000753 



004737 
103002 
011604 
000746 
010346 
106506 
012603 
016646 
106643 
016646 
106643 



032737 
001407 
170346 
106663 
106663 
162703 



010346 
1 06606 
012603 



. SBTTL FPTRPX — Floating point trap routine 



f 



FPTRPX processed Floating Point Unit (FPU) exception interrupts. 

This routine is jumped to when uie are about to exit from an interrupt 

back to user mode. 

On entry, the current job index number is in Rl. 

The saved convents of Rl are on the top of the stack followed by the 

interrupt PC and PS ready to do an RTI. 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 000001 



FPTRPX: BIS 
BIC 
MOV 
CMP 
BHI 



#UPMODE> @#PGW iMake sure previous mode = user 
#*FPUEX, LSW(Rl) i Reset FPU exception flag for job 



(SP)+,R1 
UFPTRP, #1 
1* 



; Recover Rl contents 
;Did user do a . SFPAT-" 

i Br if yes 



User did not do a . SFPA, Abort the job. 



000005 



MOV 
MOV 
BR 



#5, R5 
<SP), R4 
ABORT 



; Set abort c ode 

; Get address of aborted instruction 

i Abort the job 



User gets trap control. 

Push trap PC ?< PS onto user's stack 



OOOOOOG 



!•$: 



2$: 



000004 
000002 



CALL 


CHKUSP 


BCC 


2* 


MOV 


<SP), R4 


BR 


ABORT 


MOV 


R3. -(SP) 


MFPD 


SP 


MOV 


(SP)+, R3 


MOV 


4 ( SP ) , - ( SP ) 


MTPD 


-(R3) 


MOV 


2(SP), -<SP) 


MTPD 


~(R3) 



See if hardware has a FPU 



OOOOOOG OOOOOOG 



177774 
177776 
000004 



BIT 


#CW*FPU.. CONFIG 


BEG 


3* 


STST 


- ( SP ) 


MTPD 


-4(R3) 


MTPD 


-2(R3) 


SUB 


#4, R3 


; Re Bet user 's 


SP 


3$ : MOV 


R3, -(SP) 


MTPD 


SP 


MOV 


(SP)+, R3 



IS USER'S STACK POINTER OK? 

BR IF OK 

GET ADDRESS WHERE TRAP OCCURED 

ABORT THE JOB 

GET A WORK REGISTER 

GET USER'S STACK POINTER 

GET TRAP PS 

PUSH ONTO USER'S STACK 

GET TRAP PC 

PUSH ONTO USER'S STACK 



DOES HARDWARE HAVE AN FPU UNIT? 

BR IF NOT 

GET FPU STATUS 

MOVE FPU STATUS ONTO USER'S STACK 

i UPDATE USER'S SP 



NEW USER SP 
RESET USER SP 
RESTORE WORK REGISTER 

Enter user's trap routine 

Note, when user's trap routine does an RTI, it will transfer 
control to the point we would have exited to if the FPU trap hadn't 
have occurred. 



013716 000(3000 



MOV 



UFPTRP, (SP) 



.1 SET PC FOR TRAP ROUTINE 



TSEXC2 


— Misc 


TSX~Plus Execu MACRO V05. 04 


Moncla 


FPTRPX - 


— • Float 


ing point trap routine 




58 


006012 


012766 OOOOOOC 000002 


MOV 


59 


006020 


012737 000001 0000000 


MOV 


60 


006026 


000002 


RT I 
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#UMODE ! UPMDDE. 2 < SP ) ; SET PS 

#1,UFPTRP i RESET . SFPA TO AVOID REENTRENCY 

i ENTER USER'S TRAP ROUTINE 



TSEXC2 
CLKRUN 



— Hisc 
— Clock 
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p r o c e E 5 i n g routine 

, SBTTL CLKRUN • — Clock processing routine 



3 




4 




6 




6 


006030 


7 


006034 


8 


006036 


9 




10 




11 




12 


006042 


13 




14 




15 




16 


006046 


17 


006052 


IS 


006054 


19 


006062 


20 




21 




22 




23 


006066 


24 




25 




26 




27 


006072 


28 




29 




30 




31 


006076 


32 


006102 


33 


006104 


34 


006110 


35 




36 




37 




38 


006114 


39 


006120 


40 


006122 


41 




42 




43 




44 




45 


006126 


46 


006132 


47 


006134 


48 


006140 


49 


006142 


50 


006144 


51 




52 




53 




54 




55 




56 


006152 


57 


006156 



CLKRUN is the clock interrupt service routine entered from TSEXEC 
running at fork level. 



013703 OOOOOOG 

005203 

010337 0000000 



004737 006344 ' 



113701 OOOOOOG 

001405 

063761 OOOOOOG OOOOOOG 

005561 OOOOOOG 



004737 010176" 



004737 010076' 



005737 OOOOOOG 
00 1 404 

005037 OOOOOOG 

004737 010736' 



005737 OOOOOOG 

00 1 402 

004737 010526' 



CLKRUN: MOV 

4ip: INC 

MOV 



TIKCNT, R3 

R3 

R3, CLKCNT 



Keep track of time of day 
CALL CLKDAT 



GET # CLOCK TICKS THAT HAVE OCCURED 
CONVERT TO ACTUAL NUMBER (STARTED AT -1 ) 
ADVANCE ALL TIMERS BY THIS AMOUNT 



; ADVANCE TIME-OF-DAY AND DATE 



Keep track of time used by currently running job (if any) 

MOVB CORUSR^Rl ; GET INDEX # OF CURRENTLY RUNNING JOB 

BEQ 3* i BR IF NO JOB RUNNING NOW 

ADD CLKCNT, LCPUL0<R1); ACCUMULATE RUN-TIME FOR JOB 

ADC LCPUHKRl) i PROROGATE CARRY 

Check on , MRKT and .TIMID requests 
v3*: CALL CKMRKT iCheck on .MRKT and . TIMIO requests 

■> Check on jobs doing .TWAIT'i:- 

CALL CKTWAT ; Check on jobs doing .TWAIT's 

Check on job output buffer scheduling requests 

J Output scheduling needed? 

; B r if not 

; Say output scheduling done 

i Do job scheduling for output buffer low 



TST 


NEDSOT 


BEQ 


a* 


CLR 


NEDSOT 


CALL 


CKSCHD 



See i f ue need to do performance monitoring. 



8$: 



TST 


PMRUN 


BEQ 


2* 


CALL 


CLKPM 



013700 OOOOOOG 

001407 

005337 001340' 

003004 

004710 

012737 OOOOOOG 001340 



2*: 



IS PERFORMANCE MONITORING TO BE DONE? 

BR IF NOT 

DO PERFORMANCE MONITORING 

If we arts running on a Professional, call the PI output service 
routine every 20th of a second. 

i Are we running on a Pro? 
; Br if not 

i Time to call PI driver? 
; Br if not 

iCall PI output driver 
#PROODC.. PROTIM ; Reset time counter 

Do clock driven processing of serial lines. 

We do this as a loujer priority fork request since this processing 

could be lengthy. 



MOV 


PIDPTR, RO 


BEQ 


6* 


DEC 


PROTIM 


BGT 


6* 


CALL 


(RO) 


MOV 


#PROODC.. P 



005737 OOOOOOG 
001417 



6*: 



TST 
BEQ 



NEDCDI 
5« 



i Input character processing needed? 
i Br if not 



i 

f 

c 

I 

f 

i 

i 

i 

< 

i 
i 
€ 
€ 
i 
< 
t 
i 
i 
1 
( 
I 



TSEXC2 
CLKRUN ■ 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
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006160 
006164 
006166 
006172 
006176 
006204 
006212 
006216 
006222 
006224 
006230 
006232 
006236 
006242 
006250 
006256 



006262 
006270 
006272 
006300 
006304 
006306 
006312 
006320 
006326 



006332 
006340 

006342 



105737 
001014 
105237 
004737 
1 1 2764 
013764 
004737 
005737 
001417 
105737 
001014 
105237 
004737 
112764 
013764 
004737 



163737 
003020 
063737 
005237 
003012 
004737 
112764 
012764 
004737 



163737 
002233 
000207 



OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 



TSTB 
BNE 
INCB 
CALL 
MOVE 
MOV 
CALL 
5$ : TST 
BEQ 
TSTB 
BNE 
INCB 
CALL 
MOVB 
MOV 
CALL 

i Processing 
i This is al 



CDIFLG 

5* 

CDIFLG 

FRKGET 

#FP*CDI,FQ*PR 

CDIRTN, FG*RTN 

FORKS 

NEDCDO 

7* 

CDOFLG 
7$ 

CDOFLG 
FRKGET 

#FP*CDO, FQ*PR 
CDORTN. FQ*RTN 
FORKQ 



Are 
Br i 
Set 
Get 
I<R4)i Se 
<R4)i Set 
i Queu 
; Outp 
; Br i 
; Are 
; Br i 
/ Say 
i Get 
l<R4)i Se 
(R4); Set 
; Queu 



me s 
f ye 
^lag 
a f o 
t lo 

add 
e th 
ut c 
f no 
uie s 
f ye 
outp 
a fo 
t pr 

add 
e th 



till doing input char processing? 
s 

saying processing is being done 
vk request block 
uj priority -For fork request 
ress of routine to call 
e fork request 
haracter processing needed? 
t 

till doing output char processing? 
s 

ut processing being done 
rk request block 
iority for fork request 
ress of routine to call 
e fork request 



done on 0. 1 second frequency, 
so done by queueing a lower priority fork request. 



OOOOOOG OOOOOOG 7$: 

OOOOOOG OOOOOOG 

001342' 

OOOOOOG 

OOOOOOG OOOOOOG 
007104' OOOOOOG 
OOOOOOG 



SUB 

BGT 

ADD 

INC 

BGT 

CALL 

MOVB 

MOV 

CALL 



CLKCNT, TKICWT 

1* 

TKIVAL, TKICNT 

TIKOIS 

1* ; Br if 

FRKGET ; Get a 

#FP$CK1, FQ*PRI<R4)i Set 

#CLK01S, FQ*RTN<R4.)i Set 

FORKQ J Queue 



Has 0. 1 seconds of time passed? 

Br if not 

Reset 0. 1 counter 

Say another 0. 1 seconds has elapsed 



haven't finished last 
fork request block 
lou) priority for fork 
address of routine to 
the fork request 



0. 1 sec routine 

request 
be called 



OOOOOOG OOOOOOG 1$: 



Finished clock processing 

SUB CLKCNT, TIKCNT 
BGE CLKRUN 
RETURN 



SUBTRACT # CLOCK TICKS ACCOUNTED FOR 
BR IF WE NEED TO CYCLE AGAIN 
FINISHED 



c 

€ 

« 
I 
I 
I 

I 
i 
i 

i 

i 
i 
i 

< 

i 

i 
i 
i 
i 



( 
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TSEXC2 

CLKDAT — update time of day and date 



1 

2 

3 

4 

5 

6 

7 

3 

9 
10 
11 
12 

13 006344 

14 006346 

15 006350 
16 

17 
18 

19 006352 

20 006360 
21 

22 
23 

24 006364 

25 006372 

26 006374 

27 006402 
28 

29 
30 
31 
32 



SBTTL CLKDAT — update time of day and date 



CLKDAT is the timer- subroutine called to keep track of the current 
time-of~day and date. 



Inputs: 
CLKCiMT 



= # clock ticks to account for. 



Outputs: 
SYTIML 8< SYTIMH = Updated time of day. 
SYBDAT = Updated date. 



006404 
006412 

33 006416 

34 006422 

35 006424 

36 006426 

37 006432 

38 006436 

39 006440 

40 006444 

41 006450 

42 006454 

43 006456 

44 006462 

45 006466 

46 006470 

47 006474 

48 006476 

49 006500 

50 006502 

51 006504 

52 006510 

53 006512 

54 006516 

55 006520 

56 006524 

57 006526 



010246 
010346 



063737 
005537 



023737 
103465 
023737 
103461 



163737 
005037 
013700 
001451 
010003 
042703 
072027 
010001 
042700 
072127 
042701 
005200 
116102 
020127 
00 1 004 
032703 
001001 
005202 
020002 
101411 
012700 
005201 
020127 
101403 
012701 
005203 
072027 



CLKDAT: MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, "(SP) 
R3, -<BP) 



0000000 
0000000 



OOOOOOG 
OOOOOOG 



OOOOOOG 



Advance system time counter. 

ADD CLKCNT, SYTIML 
ADC SYTIMH 



i ADD TO LOW-ORDER WORD 
i PROROGATE CARRY 



See if u)e need to do a date roll-over. 



OOOOOOG 
OOOOOOG 



CMP SYTIMH, DATIMH 

BLO 9* 

CMP SYTIML. DAT I ML 

BLO 9* 

Do a date roll-over. 



OOOOOOG 

OOOOOOG 
OOOOOOG 



177740 
177773 

177740 
177773 
177740 

001321 ' 
000002 

000003 



OOOOOOG 



5«: 



000001 
000014 
000001 
000005 



6*: 



SUB 


DAT I ML, SYTIML 


CLR 


SYTIMH 


MOV 


SYSDAT, RO 


BEG 


9* J 


MOV 


RO, R3 i 


BIC 


#'-C<37.>, R3 


ASH 


#-5, RO ; 


MOV 


RO, Rl 


BIC 


#'^C<37>, RO ; 


ASH 


#-5, Rl ; 


BIC 


#''^C<:37>, Rl ; 


INC 


RO i 


MOVB 


MONDAY-KRl), R2 ; 


CMP 


R 1 , #2 ; 


BNE 


5* i 


BIT 


#3, R3 J 


BNE 


5* ; 


INC 


R2 i 


CMP 


RO, R2 i 


BLOS 


6* i 


MOV 


#1,R0 } 


INC 


Rl ; 


CMP 


Rl,#12. i 


BLOS 


6* ■> 


MOV 


#1,R1 > 


INC 


R3 i 


ASH 


#5, RO ■> 



COMPARE HIGH-ORDER TIME VALUE 
BR IF NOT UP TO 24 HOURS YET 
COMPARE LOW-ORDER TIME 
BR IF NOT THERE YET 



RESET SYSTEM TIMER RELATIVE TO START OF DAY 

GET SYSTEM DATE VAL UE 

BR IF NO DATE WAS ENTERED 

GET YEAR FIELD 

RIGHT JUSTIFY DAY # 

GET DAY # ONLY 

RIGHT JUSTIFY MONTH VALUE 

GET MONTH VALUE ONLY 

INCREMENT CURRENT DAY NUMBER 

GET # DAYS IN CURRENT MONTH 

IS THIS FEBRUARY? 

BR IF NOT 

IS THIS A LEAP YEAR? 

BR IF NOT 

SAY FEB HAS 29 DAYS 

HAVE WE PASSED LAST DAY IN THIS MONTH? 

BR IF NOT 

RESET DAY # TO 1 

ADVANCE MONTH NUMBER 

DID WE JUST ADVANCE PAST DECEMBER? 

BR IF NOT 

RESET MONTH TO JANUARY 

ADVANCE YEAR NUMBER < HAPPY NEW YEAR) 

POSITION DAY # VALUE 



f 
f 
f 
< 
i 

c 
c 

€ 

( 

€ 



< 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 



006532 
006534 
006540 
006542 



006546 
006550 
006552 
006554 



050003 
072127 
050103 
010337 



012603 
012602 
012601 
000207 



000012 



OOOOOOG 



BIS 
ASH 
BIS 
MOV 

F- i n i s h «? d 



9*: 



RO, R3 
#10. >R1 
Rl. R3 
R3, SYSDAT 



iOR INTO YEAR WORD 

; POSITION MONTH # 

; COMBINE DATE VALUES 

; SAVE UPDATED DATE VALUE 



MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


MOV 


<SP)+,R1 


RETURN 





TSEXC2 


— Hisc 


. TSX--Pi 


us E X e c u 


CLKJOB - 

1 
2 
3 


— check 


time E 1 


ice job 








4 








5 








6 


006556 


010146 




7 


006560 


010246 




8 








9 








10 








11 


006562 


113701 


OOOOOOG 


12 


006566 


001543 




13 








14 








15 








16 


006570 


005261 


0000000 


17 








18 








19 








20 








21 


006574 


016100 


0000000 


22 


006600 


116102 


OOOOOOG 


23 


006604 


120237 


OOOOOOG 


24 


006610 


103412 




25 


006612 


020037 


OOOOOOG 


26 


006616 


101527 




27 


006620 


005737 


OOOOOOG 


28 


006624 


00 1 524 




29 


006626 


004037 


OOOOOOG 


30 


006632 


0000000 




31 


006634 


000411 




32 


006636 


120237 


OOOOOOG 


33 


006642 


101015 




34 


006644 


020037 


OOOOOOG 


35 


006650 


101512 




36 


006652 


004037 


OOOOOOG 


37 


006656 


OOOOOOG 




30 








39 








40 








41 








42 


006660 


016100 


OOOOOOG 


43 


006664 


004737 


OOOOOOG 


44 


006670 


005061 


OOOOOOG 


45 


006674 


000500 




46 








47 








48 








49 








50 








51 


006676 


005761 


OOOOOOG 


52 


006702 


001407 




53 


006704 


005361 


OOOOOOG 


54 


006710 


001004 




55 


006712 


004037 


OOOOOOG 


56 


006716 


OOOOOOfe 




57 


006720 


000464 
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. SBTTL CLKJOB — cht?(:k time slice job status 



CLKJOB is the timer subroutine called every 0. 1 seconds to check for 
time-slice expiration of the currently running job. 



CLKJOB: MOV 
MOV 



R 1 , - ( SP ) 
R2, -<SP) 



Set? if there is a job currently executing 



MOVB 

BEQ 



CORUSR^Rl 
3* 



i GET INDEX # FOR CURRENTLY RUNNING JOB 
; BR IF NO JOB RUNNING NOW 



Increment time quantum for job 

INC LQUAN(Rl) ; Increment time quantum for job 

Check for time slice expiration for fixed-priority real-time 
and low priority jobs. 

Get current time quantum for job 

Get job's execution priority 

Is this a high priority (real time) job? 

Br if not 

Have uie exceeded QUANO time? 

Br if not 

Are we doing time slicing for real-time jobs? 

Br if not 

Signal that QUANO expired 

Requeue the job at the tail of the list 
10*: CMPB R2. VPRILD J Is this a low priority job? 

Br if not 

Exceeded low priority quantum? 
Br if not 
Signal that QUAN3 has expired 

A real time or low priority job has exceeded its time quantum. 
Requeue the job at the tail of its execution queue. 



MOV 


LQUAN<R1),R0 ; 


MOVB 


LPRI<R1),R2 i 


CMPB 


R2, VPRIHI i 


BLO 


10* i 


CMP 


RQ, VQUANO ; 


BLOS 


3* ; 


TST 


VQUANO ; 


BEQ 


3* i 


JSR 


RQ, QUNSIG ; 


. WORD 


*SGQO 


BR 


11$ i 


CMPB 


R2. VPRILD ; 


BHI 


12* ■> 


CMP 


RO, VQUAN3 ; 


BLOS 


3* ■> 


JSR 


RO, QUNSIG i 


. WORD 


*SGQ3 



11*; 



MOV 


LSTATE<R1)>R0 


CALL 


ENQTL 


CLR 


LQUAN<R1) 


BR 


3* 



i Get job's current execution state 
jRequeue job at tail of execution queue 
i Reset job time quantum 



This job is not a low priority or real time job. 

See if current job is an interactive job* and if so decrement 

its interactive-CPU timr. 



12*: 



TST 

BEO 

DEC 

BNE 

JSR 

. WORD 

BR 



LITIME<R1) 

2* 

LITIME(Rl) 

2* 

RO, QUNSIG 

*SGQ1 

6* 



j Is job interactive? 

; Br if not 

i Reduce time remaining for job 

i Br if still interactive 

/Signal that QUANl has expired 

; Check QUANl signal flag 

; Now schedule job as compute bound 



\ 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 

75 

76 

77 

78 

79 

SO 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



0067Z 



006726 
006734 



006736 
006744 



016100 OOOOOOG 



026127 
101050 



026127 
101454 



OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 



006746 
006752 
006754 
006760 
006762 
006766 
006770 



006772 
007000 
007002 
007006 
007010 
007014 
007016 
007022 



007024 
007030 
007032 
007036 



007040 
007044 
007050 
007054 



005761 

00 1 007 

020037 

1 1 446 

004037 

OOOOOOG 

000440 



026127 

103011 

020037 

101406 

004037 

OOOOOOG 

012700 

000410 



OOOOOOG 



OOOOOOG 



OOOOOOG 



Check for job quantum expiration. 

MOV LGUAN<R1), RO 

See if this job is currerttly running in a high-priority state. 

CMP LSTATE(Rl), #S*«HIP; Is job in high-priority state now? 
BHI 4* J Br if not 

Don't do time-slicing for real-time jobs. 

CMP LSTATE<R1 ), #S**RT; Is job in high-priority real-time state? 
BLOS 3* ; Br if yes — skip time-quantum checking 

Job is running in a high-priority state. 
See if job is interac ti vj?. 

; Is this an interactive job? 

i Br if yes 

; Time to requeue as compute bound? 

; Br if not 

j Signal that QUANIA e.xpired 

i Schedule as compute bound job 



TST 


LITIME(Rl) 


BNE 


5* 


CMP 


RO, VQUNIA 


BLOS 


3* 


JSR 


RO, QUNSIG 


. WORD 


$SGQ1A 


BR 


6* 



OOOOOOG OOOOOOG 5$: 



OOOOOOG 



OOOOOOG 



OOOOOOG 



020037 OOOOOOG 

101422 

004037 OOOOOOG 

OOOOOOG 



016100 OOOOOOG 

004737 OOOOOOG 

005061 OOOOOOG 
000410 



9*: 



7*: 



vJob is "interactive" 

CMP LSTATE<R1 ), #S*HICPi High priority interactive? 

BHIS 9* i Br if not 

CMP RO, VQUNIC iTime to drop to lower level? 

BLOS 9* ;Br if not 

JSR RO, QUNSIG ; Signal that QUANIC expired 

. WORD $SGQ1C 

MOV #S*HICP,RO j Drop to interactive computation state 

BR 7* 

If QUANIB has expired, requeue job at tail of current queue 

; Time to shuffle queue? 

i Br if not 

; Signal that QUANIB expired 

Requeue job at tail of current execution queue 

MOV LSTATE<R1), RO i Get job's execution state 

CALL ENQTL i Requeue job at tail of execution queue 

CLR LQUAN(Rl) ; Give job a fresh time quantum 

BR 3* 



CMP 


RO, VQUNIB 


BLOS 


3* 


JSR 


RO, QUNSIG 


. WORD 


*SGQ1B 



Job is not in high-priority state. 
Schedule jobs on quan2 batiis. 



007056 
007062 
007064 



020037 OOOOOOG 

101405 

004037 OOOOOOG 



A%: 



CMP 


RO, VQUAN2 


BLOS 


3* 


JSR 


RO, QUNSIG 



i HAS JOB USED UP QUAN2 UNITS OF TIME? 
iBR IF NOT — DON'T RESCHEDULE JOB YET 
; Signal that QUAN2 expired 



I 
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CLKJOB — check time cilice job status 

f 

115 007070 0000000 .WORD $S0Q2 

116 ■> 

111 ■> Reschedule job in CPU-bound run state. C 

118 ; 

119 007072 004737 OOOOOOG 6$: CALL QCPU i RESCHEDULE JOB IN CPU-BOUND STATE 

120 ; 

121 i Finished 



. cz^rt. 



123 007076 012602 3^: MOV (SP)+, R2 

124 007100 012601 MOV <SP)-+-, Rl 

125 007102 000207 RETURN 



€ 
« 



I 



( 

i 
c 

c 



I i 

t 

I ( 

; i 

c 



i 

i 
i 
i 
1 
I 
1 
< 



TSEXC2 
CLK013 - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

le 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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007104 
007106 



007110 
007114 



007116 
007122 
007124 
007130 
007134 



007140 
007144 
007152 
007154 
007160 
007162 
007166 
007170 
007174 
007176 
007202 
007206 
007212 



007214 
007220 
007222 
007230 
007234 
007240 
007242 
007246 



007250 
007252 
007254 
007260 
007264 



010246 
010346 



013703 
005203 



005737 
001406 
005037 
012700 
004737 



012702 
032762 
001415 
005762 
00 14 12 
005362 
00 1 007 
105737 
001404 
105237 
105037 
162702 
001354 



160337 
003013 
062737 
005237 
005737 
001403 
005337 
001537 



010302 
006302 
060237 
005537 
005737 
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SBTTL CLKOIS — 0. 1 £(*CDnd clock processing 



CLKOIS is the timer called every 0. 1 seconds to do processing 
at this frequency. 



CLKOIS: MOV 
MOV 



R2, -<SP) 
R3, -<SP) 



Get # 0. 1 second unitE that have elapsed since the last time ue 
were cal led. 



00134^ 



16$: 



MOV 
INC 



TIKOIS, R3 
R3 



; Get tick counter 

/Actual time = counter + 1 



OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



000000<5 
OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
000002 



See if any jobs need to be restarted because they were waiting for 
a free message buffer and one was freed. 

Were any message buffers freed? 
Br if not 

Reset message-buff ei — freed flag 
Restart any jobs that are 
waiting for message buffers 

Decrement minimum core re-sidency time for jobs in memory. 



TST 


MBFFLG 


BEQ 


15* 


CLR 


MBFFLG 


MOV 


#S*WSMB, RO 


CALL 


UREGO 



15*: MOV #LSTSL, R2 

13*: BIT #*INCOR. LSW<R2) 

BEQ 14* 

TST LMINQ<R2) 

BEQ 14* 

DEC LMINCKR2) 

BNE 14* 

TSTB SWPCOT 

BEQ 14* 

INCB DOSCHD 

CLRB SWPCOT 

14*: SUB #2, R2 

BNE 1 3* 



GET # OF LAST JOB 

IS JOB IN MEMORY NOW? 

BR IF NOT 

HAS ITS MIN CORE TIME ALREADY EXPIRED? 

BR IF YES -"- DON'T MAKE IT GO NEGATIVE 

DEC MIN CORE TIME REMAINING FOR JOB 

BR IF MIN CORE TIME DID NOT EXPIRE 

DOES SCHEDULER WANT TO BE CALLED? 

BR IF NOT 

REQUEST A JOB SCHEDULER CYCLE 

CLEAR MIN~TIME SCHEDULER REQUEST 

CHECK NEXT LINE 



Keep track of number of minutes of uptime for system. 



OOOOOOG 

001130 OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



SUB R3, MINCTR 

BGT 1* 

ADD #600. > MINCTH 

INC MINTIM 

TST DTLX 

BEG 1* 

.DEC DTLX 

BEQ 99* 



HAS 1 MINUTE PASSED? 

BR IF NOT 

RESET COUNTER 

COUNT # MINUTES OF SYSTEM UPTIME 

IS THIS A DEMO VERSION OF THE SYSTEM? 

BR IF NOT 

HAS DEMO TIME LIMIT EXPIRED? 

BR IF DEMO TIME LIMIT REACHED 



Keep track of user/id le/swap-uiait time 



1*: 



OOOOOOG 
OOOOOOG 
OOOOOOG 



MOV 
ASL 
ADD 
ADC 
TST 



R3, R2 

R2 

R2, TMTOTL 

TMTOTH 

UIOCNT 



Get timer ticks 

Count 2 time units per interval 

COUNT TOTAL TIME 

PROPOGATE CARRY 

IS ANY USER I/O IN PROGRESS NOW? 



c 

€ 
f 
f 
I 
I 
t 

€ 

i 
i 
C 
t 

i 
i 
i 
€ 



c 
f 

< 
( 
c 
< 
< 

4 
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< 
i 
i 
i 

i 
i 
i 
i 



TSEXC2 
CLKOiS - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

7S 

79 

80 

81 

S3 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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007270 
007272 
007276 
007302 
007306 
007310 
007314 
007316 
007322 
007326 
007332 
007334 
007340 
007344 



007346 
007352 
007354 
007360 

007362 
007366 
007370 
007372 
007376 
007402 
007406 
007412 

007414 
007420 
007422 
007426 
007432 

007434 
007440 



00 1 404 
060237 
005537 
105737 
00 1 003 
105737 
001404 
060237 
005537 
105737 
001405 
060237 
005537 
000437 



105737 
001003 
105737 
001415 

005737 
001405 
006202 
060237 
005537 
060237 
005537 
000414 

005737 
001405 
060237 
005537 
000404 

060237 
005537 



OOOOOOG 
OOOOOOG 
0000000 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



007444 004737 006556' 



007450 004737 007560' 



007454 004737 011030' 



007460 160337 OOOOOOG 

007464 003020 

007466 062737 000005 OOOOOOG 

007474 004737 1 1 1 22 ' 





BEQ 


7* 




ADD 


R2, TMIOL 




ADC 


TMIOH 


7*: 


TSTB 


OUTBSY 




BNE 


8* 




TSTB 


INBSY 




BEQ 


9* 


S«; 


ADD 


R2, TMSWPL 




ADC 


TMSWPH 


9«: 


TSTB 


CORUSR 




BEQ 


2* 




ADD 


R2, TMUSRL 




ADC 


TMUSRH 




BR 


3* 


; No 


uBsr is 


running. 


; See 


if we 


should count 


2$: 


TSTB 


OUTBSY 




BNE 


4* 




TSTB 


INBSY 




BEQ 


10* 


; Suu3 


p p i n g i 


5 in proqres 


4*; 


rst 


U IOC NT 




BEQ 


11* 




ASR 


R2 




ADD 


R2, TMIOWL 




ADC 


TMIOWH 


11*: 


ADD 


R2, TMSWTL 




ADC 


TMSWTH 




BR 


3* 


; No 


swapp in 


g going on. 


10*: 


TST 


U IOC NT 




BEQ 


12* 




ADD 


R2, TMIOWL 




ADC 


TMIOWH 




BR 


3* 


> Syt; 


tern is 


idle. 


12*: 


ADD 


R2, TMIDLL 




ADC 


TMIDLH 



; BR IF NOT 

; COUNT TIME THAT USER I/O IS ACTIVE 

IS OUTSWAP IN PROGRESS? 

BR IF YES 

IS INSWAP IN PROGRESS? 

BR IF NOT 

COUNT TIME SWAP IS IN PROGRESS 

IS A USER JOB IN EXECUTION NOW? 

BR IF NOT 

COUNT TIME FOR USER JOB EXECUTION 



time 



bee 



as swap-ujait* i/o-wait or idle. 
IS AN OUTSWAP IN PROGRESS? 
IF YES 

AN INSWAP IN PROGRESS? 
IF NOT 

is also going 
IN PROGRESS? 



BR 
IS 
BR 

if 



user 



on. 



;-jee 



I./O 
IS USER I/O 
BR IF NOT 

SPLIT TIME BETWEEN SWAP-WAIT AND I/O-WAIT 
CHARGE TO I/O-WAIT 

; CHARGE TO SWAP-WAIT 



if user I/O is in progress. 
; IS USER I/O IN PROGRESS? 
i BR IF NOT 
i CHARGE TO I/O-WAIT 



; CHARGE TO IDLE TIME 



; Check for time-slice expiration of current job 

3*; CALL CLKJOB ; CHECK FOR TIME-SLICE EXPIRATION OF CUR JOB 

i Check to see if lue need to cancel I/O hold flag for any jobs 

CALL CLKIOH ; Check for I/O hold flags 

Check for processing needed for autobaud logic 

CALL CLKABD i Check for autobaud timer processing 

Processing done uiith 0. 5 second frequency. 

Has 0. 5 seconds passed?" 

BR IF NOT 

RESET TIMER 

DO TIMED CHECKS ON TIMESHARING LINES 



SUB 


R3, TK5CN! 


BGT 


6* 


ADD 


#5. / TK5CNT 


CALL 


TLCHK 
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115 
116 
117 
US 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 



007500 004737 010014' 

007504 004737 007660 ' 

007510 005727 OOOOOOG 

007514 001404 

007516 005237 OOOOOOG 

007522 005237 OOOOOOG 



007526 160337 001342' 

007532 002402 

007534 000137 007110' 



007540 012603 
007542 012602 
007544 000207 



CALL 


WAKEUP 


CALL 


CHKPRT 


TST 


#CLT0TL 


BEO 


6* 


INC 


NEDCDO 


INC 


NEDCLO 



6$: 



iSEE IF WE NEED TO WAKE UP SLEEPING JOBS 

i See if uje need to print professional screen 

iAre there any CL lines? 

i Br if not 

; Say output character processing needed 

; Trigger CL clock-driven processing 

See if any more 0. 1 second time units passed while me were working 

.; Have any more O. 1 second intervals passed? 

; Br if not 

J Go back and process again 



17* 



SUB 


R3, TIKOIS 


BLT 


17$ 


JMP 


16* 


F i n i & h G d 




: MOV 


<SP)H-, R3 


MOV 


(SP)+, R2 


RETURN 





Time limit has expired on demo version of TSX-Plus. 
Kill the system. 



007546 



99*: 



DIE 



#EM*DTL 



.: SYSTEM CRASH — DEMO TIME LIMIT REACHED 



TSEXC2 — Misc. TSX-Fl 
CLKIOH — See if we net: 
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cl to canceJ I/O hold timers 



1 

P. 
3 
4 
5 
6 
7 
S 
9 
.1.0 

ii 

12 
13 
14 
15 
16 
17 
IS 
19 
20 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



SBTTL CLKIDH 



'Jee if uje need to <:ancel I/O hold timers 



007560 010146 



007562 012701 0000000 



This routine is called every 0. 1 second to see if we should cancel 
the I/O hold timers for any jobs. The I/O hold timer is set when ute 
want to swap a job out of memory but the job has I/O in progress. 
To avoid holding the I/O for a job forever* we release the I/O hold 
after a certain period of time (lOHLTM) if a swap has not taken place. 

CLKIOH: MOV R1,-<SP) 

Begin loop to checN I/O hold time for each job 

MOV #LSTSL. Rl :• Get index to last job 

See if I/O hold flag is set for this job 



007566 005761 
007572 00142^> 



007574 005361 
007600 003022 



OOOOOOG 



1*: 



TST 
BEO 



LIOHLD(Ri) 
2* 



; Is I/O hold flag set for job?" 
J Br i f not 



Decrement the remaininq I/O hold time 



OOOOOOG 



DEC 
BGT 



LI0HLD<R1) 

2* 



(Less I/O hold time left 
; Br if some time left 



007602 026127 

007610 001003 

007612 004737 

007616 000413 



OOOOOOG OOOOOOG 
OOOOOOG 



We just cancelled the 1/0 hold time for this job. 
If the job is in a wait state> restart it. 

CMP LSTATE(R1>,#S*I0WT ils job in I/O wait state? 

BME 3* ; Br if not 

CALL FORCEX i Start the job running 

BR 2* 

If the job has any pending completion routines* make sure the job 
priority is at least as high as that of the 1st completion routine. 
This is necessary since we held off user completion routines while 
we were waiting for I/O to stop. 



007620 
007624 
007626 
007634 
007636 
007642 



007646 
007652 



007654 
007656 



016100 
001410 
126160 
1 1 404 
116000 
004737 



162701 
003345 



012601 
000207 



OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 

000002 



3*: 



MOV 

BEG 

CMPB 

BLOS 

MOVB 

CALL 



LCMPL(R1)*R0 * Does job have any pending compl routines? 

2* * Br if not 

LSTATE<R1 ), CO*RNS<R0); Is job priority high as cpl rtn prio? 

2* i Br if yes 

CQ*RNS<RO)* RO .: Get job state for compl routine 



ENQTL 
Process next job 



2*: 



SUB 
BGT 

F i n i G h c? d 



MOV 
RETURN 



#2, Rl 
1* 



(SP)+, Rl 



; Change job state 



i Get index of next job 

; Loop if more jobs to check 



TSEXC2 
CHKPRT - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

1,6 

17 

IS 

19 

20 

21 

22 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 



t t A ^^ L. . 
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See if \ise need to print- Prof esEi onal screen 

. SBTTL CHKPRT 



Sf'P if we need to print Professional screen 



CHKPRT is called to see if the PI handler has requested that the 
contents of the professional screen be printed. If soj an asynchronous 
completion routine in the PROPRT program is triggered. 



007660 010246 
007662 010446 



007664 105737 0000000 
007670 001446 



CHKPRT: MOV 
MOV 



R2, -(SP) 
R4, -<SP) 



Return immediately if we are not running on a professional 



TSTB 
BEQ 



PRDFLG 
9* 



; Are we running on a Professional? 

j Br if not 



See if the PROPRT program is running 



007672 012702 0000000 

007676 026237 0000000 001344' 1$: 

007704 001004 

007706 026237 OOOOOOG 001346' 

007714 001404 

007716 162702 000002 2*: 

007722 003365 

007724 000425 



MOV #LSTSL, R2 ; Get index to last line 

CMP LPRG1(R2). R50PR0; 1st 3 chars of name = "PRO"? 

BWE 2* ; Br if not 

CMP LPRG2(R2), RSOPRTi 2nd 3 chars of name = "PRT"? 

BEi:"Q 3* ; Br i f found program 

SUB #2, R2 i More lines to check? 

BGT 1* iLoopifyes 

BR 4* ; PROPRT program is not running 



007726 005762 OOOOOOG 3*: 

007732 00142t! 

007734 052737 OOOOOOG OOOOOOG 



007742 032737 OOOOOOG OOOOOOG 
007750 001416 



007752 016204 OOOOOOG 

007756 001404 

007760 005062 OOOOOOG 

007764 004737 OOOOOOG 

007770 042737 OOOOOOC OOOOOOG 5*: 

007776 000403 



The PROPRT program is running. See if it has scheduled a 
completion routine. 

TST LBRKCQ(R2) ;Did it specify a completion routine? 

BEQ 4* ; Br if not 

BIS #SS*RUN. SPSTAT ; Set flag saying spooler is running 

See if PI handler requested that screen be printed 

BIT #SS*PRT, SPSTAT iDid PI request that screen be printed? 
BEO 9* i Br if not 

Trigger completion routine in PROPRT 

; Get address of completion queue element 



MOV 

BEO 

CLR 

CALL 

BIC 

BR 



LBRKCQ<R2),R4 

5* 

LBRKCQ(R2) ; Say completion Q element used up 

QCOMPL i Queue completion routine for the job 

#SS*PRT ! SS*RUN, SPSTAT ; Clear print-screen flag 

9* 



; The PROPRT program is not running 

i 

010000 042737 OOOOOOC OOOOOOG 4$: BIC #SS$RUN ! SS*PRT, SPSTAT i Say program not running 

i 

> F i r) i & h e d 
9$: 



010006 012604 
010010 012602 
010012 000207 



MOV 
MOV 
RETURN 



< SP ) +> R4 
(SP>+, R2 



i 

I 



TSEXC2 — Misi:. TSX-Plus Execu 
WAKEUP — - 0. 5 second procoE-sing 



4 
5 








6 


010014 


010146 




7 


010016 


012701 


0000000 


a 








9 








10 








11 


010022 


026127 


0000000 


12 


010030 


001015 




13 


010032 


005761 


0000000 


14 


010036 


00 1 4 1 2 




15 


010040 


005361 


0000000 


16 


010044 


001007 




17 


010046 


010546 




18 


010050 


016105 


OOOOOOQ 


19 


010054 






20 


010062 


012601) 




21 








22 








23 








24 


010064 


162701 


000002 


25 


010070 


001354 




26 








27 








28 








29 


010072 


01 260 J 




30 


010074 


000207 





MACRO V05. 04 Honday 2i-D€?c-S7 08: 4 ''i Page 21 
for- sleeping users 

. SDTTL WAKEUP • — O. 5 second processing for sleeping users 

Timer routine called ever 0.5 seconds to see if sleeping users 
■need to be awaken. 



WAKEUP : MOV 
MOV 



R 1 , - < BP ) 
#LSTSL, Rl 



; GET INDEX TO LAST LINE 
Check for jobs that need to have TT reads timed out 



0000000 1$: 



CMP 

.ONE 

TST 

BEQ 

DEC 

BNE 

MOV 

MOV 

OCALL 

MOV 



LSTATE<R1),#B*INWT; IS JOB WAITING FOR TT INPUT? 



2* 

LRDTIM(R1.) 

2* 

LRDTIM(Rl) 

2* 

R5, -(SP) 

LRTCHR<R1 )> R5 

STRACT 

(SP)+, R5 



Chec li next line 



2*: 



SUB 


#2. Rl 


BNE 


1* 


Finished 




MOV 


(SP)+-, Rl 


RETURN 





BR IF NOT 

DOES JOB HAVE A TT READ TIME VALUE SPECIFIED? 

BR IF NOT 

HAS TIME EXPIRED? 

BR IF NOT 

;GET TIME-OUT ACTIVATION CHARACTER 
.: STORE ACTIVATION CHARACTER 



GET NEXT LINE INDEX 

BR IF THERE IS ANOTHER LINE TO CHECK 



TSEXC2 
CKTWAT 
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Check on .jobr> doing . TWAIT waits 



3 
4 
5 

6 010076 010146 
7 
8 
9 
10 01 



11 
12 



13 

14 

15 

16 

17 
IS 
19 
20 



23 

24 

25 

26 

27 

28 

29 

30 
31 
32 
33 

34 

35 



10100 
10104 
10112 
10114 
10122 
10126 
10130 
10132 
1 1 36 



10140 
10144 
10146 
10152 
10154 
10160 
10164 
10170 



012701 
026127 
001024 
163761 
005661 
002404 
001015 
005761 
001012 



10172 
10174 



005761 
001403 
012700 
000402 
012700 
004737 
162701 
001345 



012601 
000207 



. SBTTL CKTWAT — Check on joi3s doing .TWAIT waits 

CKTWAT is called every clock tick to see if any jobs doing .TWAIT waits 
nt?t?d to be re&tarted. 

CKTWAT : MOV R 1 , - < SP ) 

Check for jobs doing timed waits (. twait) 



0000000 
0000000 

OOOOOOG 
OOOOOOG 



0000000 



OOOOOOG 4*: 
OOOOOOG 



MOV 
CMP 
BNE 
SUB 
SBC 
BLT 
BME 
TST 
BME 



#LSTSL. Rl iGET HIGHEST JOB INDEX NUMBER 
LSTATE<R1), «S*TMWT; IS THIS JOB DOING A TIMED WAIT? 
5* ; BR IF NOT 

CLKCNT, LSLEPL<Rl)iDEC SLEEP TIME 



LSLEPH<R1 ) 

6* 

5* 

LSLEPL(Rl) 

5* 



PROROGATE CARRY 
BR IF COUNT WENT NEGATIVE 
BR IF GREATER THAN ZERO 
CHECK LOW-ORDER VALUE 
BR IF NOT ZERO 



Timed wait is completed. 

Put job in high priority execution state. 



OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
000002 



6$: 


TST 


LITIME(Rl) 




BEQ 


11* 




MOV 


#S$HICP,RO 




BR 


10$ 


11$: 


MOV 


#S*TWFN, RO 


10$: 


CALL 


ENQTL 


5*: 


SUB 


#2, Rl 




BNE 


4* 


i F 


i n i s h e d 




> 


MOV 


<SP)+, Rl 




RETURN 





IS THIS AN INTERACTIVE JOB? 

BR IF NOT 

PUT JOB IN INTERACTIVE CPU STATE 

iPUT JOB IN NORMAL HIGH-PRIO EXECUTION STATE 

; MORE JOBS TO CHECK? 
i BR IF YES 
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CKMRKT — check mark-time requests 



J. 
2 
3 
4 
5 

6 

7 

8 
9 

10 
11 

12 

13 

14 

15 03 

16 03 
17 

IS 
19 

20 

21 

22 

23 
24 
25 
26 
27 
28 
29 
30 
31 

32 
33 
34 
35 



. BBTTL CKMRKT — check mark-time requests 



CKMF<KT is called every clock tick to see if" any mark-time requests have 
reached their specified time to be triggered. 



lOl/'A 
10200 
10202 



10204 
10210 
10214 



10230 
10236 
10242 
1 0244 
10246 
10252 
10254 
10256 



010146 
010246 
010446 



001336' 
OOOOOOC 

016204 0000000 
001442 



163764 0000000 OOOOOOG 

005664 OOOOOOG 

002406 

001003 

005764 OOOOOOG 

00 1 402 

010402 

000761 



CKMRKI : MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2. - ( SP ) 
R4, -<SP) 



Check for pending mark-time requests 

CLR FORKIT .; Clear fork request flag 

MOV #MRKTHD-C«*LWK, R2; FAKE POINTER TO QUEUE HEAD 



DISABL 
1 * : MOV CQ$LNK ( R2 ) . R4 
BEQ 8* 



*H- Disable interrupts ** 

i i GET ADDRESS OF NEXT ELEMENT IN LIST 

i ; BR IF END OF LIST REACHED 



Subtract time that has past from specified mark-time interval. 



SUB CLKCNT, CQ*LOT ( R4 ) 

SBC CQ$H0T(R4) 

BLT 3* 

BWE 2* 

TST CQ*L0T(R4> 

BLQ 3« 

MOV R4, R2 

BR 1* 



i SUBTRACT FROM LOW-ORDER TIME VALUE 

PROPOGATE BORROW TO HIGH-ORDER VALUE 

BR IF TIME WENT NEGATIVE 

BR IF TIME STILL POSITIVE 

CHECK LOW-ORDER VALUE 

Br if zero <time has elapsed) 

Chain forward to next entry in list 



This mark-time request ha& expired. 

Remove the mark-time request entry from the waiting list. 



10260 016462 OOOOOOG OOOOOOG 3*: 



MOV 



CQ*LNK(R4), C«*LNK<R2); ;; Remove from pending mark-time chain 



37 

38 

39 
40 
41 
42 

43 

44 

45 
46 
47 
48 
49 
50 
51 
52 

53 

54 
55 
56 



10266 005064 OOOOOOG 
10272 013700 OOOOOOG 
10276 OOIOO'J 



10300 010437 OOOOOOG 
10304 010437 001336' 
10310 000744 



10312 005760 OOOOOOG 

10316 001403 

10320 016000 OOOOOOG 

10324 000772 

10.326 010460 OOOOOOG 

10332 000733 



CLR 


CQ*LNK(R4) 


MOV 


SYPNCR, RO 


BNE 


9$ 



Put request on list of pending requests and schedule a lower-priority 
fork routine to actually execute the completion routine. 

Clear forward link in completed element 
Get address of 1st pending compl request 
Br if there are pending requests 

First entry of completion requires a fork process to be executed. 

i Set us as Ist pending compl routine 

; Set fork request flag 

i Go check for more finished requests 

Other completion entries exist so add current completion to list tail. 

9$: TBT CQ*LNK<R<)) i;;Is there another pending request? 

Br if not 

Chain forward to next pending request 

Follow list to ej'id 
6*: MOV R4, CQ«LNK(RO) ; i j Add our entry to end of list 

Check for more completed requests 



5f ; 


MOV 


R4, SYPNCR 




MOV 


R4, FORKIT 




BR 


1* 



TBT 


CQ*LNK<R<)) 


BEQ 


6* 


MOV 


CQ*LNK(RO), RO 


BR 


9$ 


MOV 


R4, CQfLNK<RO> 


BR 


1* 


Finished. 


Create fork pro 



TSEXC2 
CKMRKT - 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 



Misc. TBX--P1U!; Execu MACRO V05. 04 
check mar k«-t j fffB' requofets 



010334 
010342 
010346 
010350 
010354 
010362 
010370 
010374 
010376 
010400 
010402 



005737 
001412 
004737 
1 1 2764 
012764 
004737 
012604 
012602 
012601 
000207 



8*: 



001336' 

OOOOOOG 
OOOOOOG 
010404' 
OOOOOOG 



OOOOOOG 
OOOOOOG 



10*: 
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EMABL 

rsi 

BEG 

CALL 

MOVE 

MOV 

CALL 

MOV 

MOV 

MOV 

RETURN 



J** Enable interrupts ** 



FORK IT 
10$ 

FRKGET 
#FP$IDF, 



i Check 

■> Br if 

i Get a 

FQ*FR;E<R4); Set 



#CLKSCR, FQ*RTN<R4}; Set 
F'ORKQ i Queue 

( SP ) +, R4 
<SP)+, R2 
(SP)+, Rl 



fork request flag 

fork is not needed 

free fork request block 

fork priority 

address of routine to execute 

the fork request 



1 
f 



TSEXC2 
CLKSCR - 

1 

2 
r> 

4 

5 

6 

7 

S 

9 

10 

11. 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 



— Misc. TSX~Fj 
— Execute compi 
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ctecl system mark -time requests 



SBTTL CLKSCR ■ — bxecute completed system mark-time requests 



Thifi routine is at a ."(. ower -prior it y clock-driven fork priority 

to process all completed mark-time completion requests for system 

routinf^s. 



010404 
010406 



010410 
010416 
010422 
01 0424 
010432 



010440 
010446 
010452 



010146 
010446 



CLKSCR: MOV 
HOV 



R 1 , - ( SP ) 
R4, ~(SP) 



013704 
001433 
016437 



0000000 
0000000 0000000 



1 1 2764 
116401 
001414 



0000000 0000000 
0000000 



.; Unlink next completed entry from pending list 

1*: DISABL ; ** Disable interrupts ««• 

MOV SYPNCR, R4 ; ; ; Get address of next completion block 

BEQ 9* ; ; i Br i f no more pending 

MOV CQ$LNK(R4), SYPWCR ;i;Unlink block from list 
ENABL J**- Enable interrupts #«• 

See if this mark-time request is for a user job or the system. 

MOVE #CP*STD, CQ^CP<R4)i Set completion routine class priority 
MOVE CQ*J0B<R4),R1 ; Get index # of job that did the . MRKT 
BEQ 4* J Br if timer request came from the systeni 

Timer request is for a user job. 

Call QCOMPL to queue the completion routine for the user job. 



010454 
010460 
010464 
010466 
010472 
010476 



012700 
005761 
00 1 402 
012700 
1 1 0064 
116164 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



2$: 



MOV 

TST 

BEQ 

MOV 

MOVB 

MOVE 



#S*TWFN.. RO 
LITIME(Rl) 
2* 

#S*HICP, RO 
RO, CQ*RNS(R4) 



; Get compl prio for non-interactive jobs 

i Is this job interactive? 

i Br i f not 

; Get compl prio for interactive jobs 

i Set execution state for compl routine 



010504 004737 OOOOOOG 



010510 000737 



010512 
010520 
010522 
010524 



1 2604 
01260.1 
000207 



LPRKRl), CQ*PRI(R4>i Set execution priority value 

Process this completion request 

4*: CALL QCOMPL ; Process the completed request 

Go back and see if there are more pending requests 

BR 1* 

; P"ini fihed all p end inq requests 

9*: ENABL 

MOV <SP)+, R4 
MOV <SP)+.R1 
RETURN 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

u 

12 
13 
14 
15 
16 
17 
IS 01 

19 01 

20 01 



. SBTTL CLKPii — accumulate performance monitoring data 
CLKF'M is called to accumulate performance monitoring information. 



I n p u t B : 
CL.KCMT == Number of cHjck ticks to charge to job. 
CLKFO = PC when clock interrupt occured. 
CLKF*S = PS luhen clock interrupt occured. 

PMUBER = Job number of user who is doing performance analysis. 
PMDASE = Base address of region being monitored. 
PiifOP = Top address of region being monitored. 
PMFLGS = PF$ control flags' 
LEHTPC<Job) = PC when last EMT was executed for job. 

Outputs: 
Appropriate cell in performance counter table is incremented. 



0526 
0530 
0532 



010146 
010246 
O 1 0346 



CLKPM: 



MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2< -(SP) 
R3, -<SP) 



23 
24 



01 
01 



0534 

0542 

0544 
0552 
0554 

0560 



032737 
001407 

032737 
001065 
013703 
000432 



0000000 
OOOOOOG 

OOOOOOG 



c 

26 
27 01 

2S 01 

29 01 

30 01 
31 
32 
33 
34 

35 01 

36 01 

37 01 

38 01 

39 01 
40 
41 

42 01 

43 01 
44 

45 01 

46 01 
47 
48 

49 01 

50 01 
51 

52 01 

53 01 
54 

55 010642 016103 0000000 

56 

57 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



See if we are monitoring system execution or user job execution. 

BIT #PF*SYS.. PMFLGS i MONITORING SYSTEM OR USER JOB? 
BEQ 4* ; BR IF MONITORING USER JOB 

We are monitoring the system. 



BIT #UMODE, CLKPS 

BNE 9* 

MOV CLKPC,R3 

BR 3* 



DID INTERRUPT OCCUR IN KERNEL MODE? 

BR IF NOT — USER WAS RUNNING 

GET ADDRESS WHERE INTERRUPT OCCURED 

GO COUNT HIT 



0562 
0566 
0574 
0576 
0602 



0604 
0612 

0614 
0620 



0622 
0630 

:0632 
.0640 



013701 
032761 
001054 
120137 
00 1 007 



032737 
001413 

013703 
000412 



00 1 436 

026127 
00 1 032 



OOOOOOG 



MOV 


PMUSER> Rl 


BIT 


#*INKMN, l..BW4(Rl) 


BNE 


9$ 


CMPB 


R1,C0RUSR 


BNE 


1* 



OOOOOOG OOOOOOG 



OOOOOOG 



OOOOOOG OOOOOOG 1$ 



OOOOOOG OOOOOOG 



We are monitoring user job execution. 

Determine if we should count a hit against running job. 

4*: MOV PMUSER>R1 i GET # OF JOB BEING MONITORED 

i IS KMON RUNNING? 
; DON'T MONITOR KMON 

; IS JOB BEING MONITORED THE CURRENT JOB? 
> BR IF NOT 
Monitored job is running now. 
See if interrupt occured in user or kernel mode. 

BIT #UMODE, CLKPS ; DID INTERRUPT OCCUR IN USER OR KERNEL MODE? 
BEQ 2* ; BR IF IN KERNEL MODE 

Job was in user mode so use interrupted PC. 

MOV CLKPC,R3 ; COUNT HIT AGAINST THIS PC 
BR 3* 
Monitored job is not now running. 
See if we should charge I/O wait time to job. 

BIT #PF*IDW, PMFLGS ; SHOULD WE CHARGE FOR I/O WAIT TIME? 
BEQ 9* ; BR IF NOT 

i See if monitored job is waiting for I/O. 

CMP LSTATE(Rl), #S^IOWTi IS MONITORED JOB WAITING FOR I/O? 
BNE 9* ; BR IF NOT 

i Use last EMT address as cell to charge hit to. 
2*: MOV LEMTPC(R1),R3 i GET ADDRESS OF LAST EMT DONE BY JOB 

i 

i At this point we have in R3 the PC that we are to charge this time to. 



T5EXC2 
CLKPM 
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58 

59 

60 

61 

62 

63 
64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 
75 
76 
77 

78 

79 
SO 
Bl 



10646 
10652 
10654 
10660 

10662 
10666 
10670 
1 0674 
10676 
1 0702 
10710 
10714 
10716 
10720 



10726 
10730 
10732 
1 0734 



020337 
10342D 
020337 



163703 
00 5002 
07 1 237 
006302 
062702 
013737 
063712 
103004 
005312 
052737 



012603 
012602 
01260:1 
0002C7 



See if the PC is in tht? region being monitored. 



0000000 
OOOOOOG 

0000000 

OOOOOOG 

000000(5 
OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 



3-$: 



PC 



CMP 
BID 
CMP 
BHIi 
■> in 
SUB 
CLR 
DIV 
ASL 
ADD 
MOV 
ADD 
BCC 
DEC 
BIS 



F i n i E h e ci 



R3, PMBASE 

9* 

R3, PMTOP 
I 9* 

region being monitor 

PMBASE, R3 

R2 

PMNBPC, R2 

R2 

#VPAR6, R? 

PMPAR, ©#KPAR6 

CLKCNT, (R2) 

9* 

<R2) 

#PF*OVF, PMFLGS 



IT 
IF 
IT 
IF 



BELOW 
YES 
ABOVE 
YES 



BASE OF REGION? 



TOP OF REGION? 



IS 
BR 
IS 
BR 
ed. 
SUBTRACT BASE TO GET OFFSET 
SET FOR DIVIDE 
DIVIDE BY # BYTES PER CELL 
CONVERT CELL # TO BYTE # 
ADD VIRTUAL ADDRESS OF PAR6 REGION 
MAP PAR6 TO PM DATA AREA 
ADD TIME TO COUNTER FOR THIS CELL 
ER IF NO OVERFLOW OF CELL 
SET COUNTER VALUE BACK TO -1 
REMEMBER THAN AN OVERFLOW OCCURED 



9$: 



MOV 
MOV 
MOV 
RETURN 



<SP)+, R3 
<SP)+, R2 
<;SP)+, Rl 



4 
I 



TSEXC2 
CKSCHD - 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 
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23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



01 
01 
01 



0740 
0742 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



01 
01 
01 
01 
01 



0746 
0754 
0756 
0764 
0770 
0774 
0776 
1 002 
1006 
1010 



1014 
1020 
1022 
1024 
1026 



010046 
010146 
012701 



032761 
001417 
042761 
1 2700 
005761 
00 1 002 
012700 
026100 
101402 
004737 



Monday 21-Dec-S7 08: 44 Page 27 



SBTTL CK9CHD -• Chfci^ jobs and schedule 



CKSCHD will check all the jobs and schedule those that have been flagged 
as needing a priority boost because of output buffer empty or low. 



OOOOOOG 



Inputs: 

L3W7 

CKSCHD: MOV 
MOV 
MOV 



job schedulijig flat) 

RO, - ( SP ) 
R 1 , - < SP ) 
#LSTSL, Rl 



; Save registers 

;Obtain index to the last line 



OOOOOOe OOOOOOG l*: 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 



2$ : 



Check all jobs to see if any need a priority boost for terminal buffer 
empty or low. 

Check for scheduling flag enable 

Br if no scheduling required 

Reset job scheduling flag 

Get output-buffer empty state 

Is this an interactive job?" 

I3r if yes 

If not interactive then use lower pri 

Is job already in this prio or better 

Br if yes 

Queue job at tail of execution list 



BIT 


#*SOTFN.. LSW7<R1) 


BEQ 


10* 


BIC 


#*SDTFN, LSy7<Rl) 


MOV 


#S$OTFN, RO 


TBT 


LITIME(Rl) 


BNE 


2* 


MOV 


#S*OTLO, RO 


CMP 


LSTATE(RU, RO 


BLOS 


10* 


CALL 


ENQTL 



Check the next line. 



162701 000002 

003352 

012601 

1 2600 

000207 



10*: 



SUB 


#2, Rl 


BGT 


1* 


MOV 


<SP)+, Rl 


MOV 


<SP)+, RO 


RETURN 





» Check the next job 

i Continue until all job tested 

i Restore registers 



f 

c 

< 

I 

i 

i 

i 

< 

c 

f 

i 

< 

i 

€ 
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1 
2 
3 
4 

5 

6 011030 010146 

7 

8 

9 
10 011032 012701 OOOOOOtt 
11 
12 
13 
14 01 



. SBTTL CLKABD 



C!tock processing for autobaud logic 



CLKABD is called on a 1/10 second basis to do clock driven processing 
related to autobaud logic. 

CLKABD: MOV R1,-<SP) 

Bepin loop to check each lirte 

MOV #LSTPL, Rl iOet index # of last line 

See if this line has autobaud control 



15 01 
16 
17 
18 

19 01 

20 01 

21 01 

22 01 
23 



1036 

1044 



032761 0000000 0000000 1*: BIT 

001421 BEQ 



1046 
1052 
1054 
1060 



25 
26 

27 01 
2S 01 

29 01 

30 01 

31 01 
32 
33 
34 

35 01 

36 01 
37 

38 
39 

40 0111 1 6 

41 0111 20 



1 062 
1070 
1 072 
1100 
1104 



1110 
1114 



012601 
000207 



#*AUTO, .TLSW2<R1 >; Does this line have autobaud control? 

2* ; Br if not 



Decrement autobaud timer for this line 



005761 OOOOOOG 

001416 

005361 OOOOOOG 

001013 



TBT 
BEO 
DEC 
BME 



LABTIM<R1) 
2* 
LABTIM<R1 ) 

2* 



; Is the autobaud timer active? 

; Br if not 

i Decrement timer 

; Br if timer did not time out 



Timer timed out for this line. 

Seo if we need to reset the> line speed. 



032761 OOOOOOG OOOOOOG 

001407 

042761 OOOOOOG OOOOOOG 

012700 OOOOOOG 

004737 OOOOOOG 



162701 000002 
003350 



B I T 
BEO 
BIC 
MOV 
CALL 



#*NABRS, LSW9(R1); Do we need to reset the line speed? 
2* ; Br if not 

#«IMABRS. LSW9<R1 )i Clear the flaq 



#59600, RO 
SETSPD 



Check next line 



>*: 



SUB 


#2. Rl 


BGT 


1* 


F i n i h h e d 




MOV 


< SP .) +, R 1 


RETURN 





i Reset line speed to 9600 baud 
.; Reset speed 



i More lines to doT' 
J Loop if yes 



TSEXC2 
TLCHK 



— Misc 

- Check 



01 
01 



1 

P. 
3 
4 
5 
6 
7 

a 

9 
10 

u 

12 
13 
14 

15 01 

16 01 

17 01 

18 01 
19 
20 

21 

22 01 

23 01 
24 
25 
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. SOTTL. TLCHK - Check Dial-up line status 



TLCIIK is called from the clock interrupt routine every 0.5 seconds 
to see if dial-up lines need to be answered or hung up. 



1122 
1124 



010146 
010246 



TLCHK: 



MOV 
MOV 



R 1 , - ( SP ) 
R2, -(GP) 



0111 26 1 270 1 0000000 



1132 
1140 
1142 
1 1 50 



1152 
1156 



27 :i 1 1 62 

28 C 1 i 1 66 

29 011170 

30 01 

31 01 



1176 

200 

1204 

1206 



32 01 

33 01 
34 
35 
36 

37 01 

38 01 
39 
40 

41 

42 011220 

43 0U222 

44 011224 



1212 
1216 



Bepin loop to check each physical line 

MOV #LSTHL,R1 ; Index to last real line 
See if this line is installed 



032761 OOOOOOG 0000000 1$: 

001024 

032761 OOOOOOG OOOOOOG 

001420 



BIT 


#*DEAD, LSW3(R1) 


BNE 


2* 


B I T 


#*HARD, LSW3<R1) 


BEQ 


2* 



Is this line installedT' 

Br if not 

Is this line connected to hardware? 

; Br if not 



016102 OOOOOOG 
004772 OOOOOOG 



005761 OOOOOOG 

002011 

032761 OOOOOOG OOOOOOG 

0014015 

020127 OOOOOOG 

101002 

0047:37 011226' 



162701 000002 
001345 



012602 
01260.1 
000207 



Call processing routine based on type of communications device 

MOV LCDTYP<R1), R2 J Get comm device index number 

CALL @CDCL0K<R2) ;Call processing routine for this line 

If this is a dial-up line, check on line ringing* lost carrier* etc. 

TST LCLUNT(Rl) Jls this line in use as a CL unit? 

BGE 2* i Br if this is a CL line 

BIT #*PHONE, ILSW2<R1); Is this a dial-up line? 

BEG 2* i Br if not 

CMP R1..#LSTPL ; Is this a time-sharing or CL line? 

BHI 2* .: Don't do phone checks for CL lines 

CALL CLKPHIM ; Check phone line 



EJes if there avs mure lines to be checked 



;-*: 



SUB 


#2, Rl 


BNE 


1* 


Finished 




MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 





i Get index number for next line 
i Loop if more lines to check 



c 
t 

4 



TSEXC2 ■■ 
CLKPHN — 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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PaqB 30 



f 



011226 010246 



011230 

011234 



01 

Oi 
01 
01 
01 
01 
01 
01 
01 
01 



01 
01 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



1240 

1244 
1246 
1252 
1254 
1 260 
1262 
1266 
1272 
1300 



1306 
1312 



1314 
1320 
1322 
1330 
1336 
1340 
1344 
1 346 
1354 
1356 
1 364 
1372 
1374 
1402 
1404 
1412 
1414 
1416 
1424 
1426 



016102 
004772 



105737 
001020 
032700 
001415 
032700 
OOiOili 
052700 
004772 
013761 
013761 



032700 
001054 



. SBTTL CLKPHN 



Da timer driven checks of dial-up lines 



0000000 
OOOOOOG 



OOOOOOG 

000000(3 

0000000 

OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 



CLKPHN is called periodically to perform checks on dial-up lines. 
Checks are made to see if the phone is ringing or if carrier 
has been detected or lost. 

1" n p u t Si : 
Rl = Physical line index number. 

CLKPHN: MOV R2, -<SP) 

Call device-dependent routine to get the data set status for this line 

MOV LCDTYP<R1),R2 i Get comm device type code index 
CALL ®CDGDSS(R2) ; Get data set status 

At this point* the generic modem status <MB*xxx flags) is in RO. 
See if the phone is ringing 

Is system being stopped? 
Br if yes 
Is line ringing?" 
Br if not 

Have we enabled answer? 
Br if yes 
Enable answer 
Set data set status 
t; Start carrier-down timer 
VOFFTM. L0FFIM(R1 )j Drop DTR if not logged on by this time 



TSTB 


STPFLG 




BNE 


5* 




BIT 


#MS*RNG, 


RO 


BEQ 


5* 




B 1 T 


#MS*DTR. 


RO 


BNE 


5* 




BIS 


#MS*DTR, 


RO 


CALL 


@CDSDSS<R2) 


MOV 


VTMOUT, 1 


_CDT 


MOV 


VOFFTM. i 


.OFF 



Check status of carrier cm dial-up lines. 



5*: BIT #MS$CAR>RO 
BNE 16* 



Carrier is down 



005361 OOOOOOG 

003057 

042761 OOOOOOG 

032761 OOOOOOG 

00 1 407 

105737 

00 1 004 

032761 

00 1 436 

052761 OOOOOOG 

032761 OOOOOOG 

00 1 4 1 n 

032761 OOOOOOC 

00 1 026 

032761 OOOOOOG 

00 1 02;i 

010100 

0004 IT; 

042700 OOOOOOG 



11*: 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 



1*: 



21*: 



DEC 


LCDTIM<RJ > 


BGT 


8* 


BIC 


#*CARUP.LSW3<R1 


B I T 


#*DILUP. LSW<R1 ) 


BEO 


1* 


TSTB 


VUSPHN 


BNE 


1* 


BIT 


#*CARMN>LSW5<R1 


BEG 


17* 


BIS 


#*NOIN> LSW3(R1) 


BIT 


«*DILUP,LSW<R1) 


BEO 


21* 


B I T 


#<*DISCN+*DOOFF 


BNE 


8* 


B I T 


#*LOFCF, LSW9<Ri 


BNE 


8* 


MfJV 


Rl. RO 


OCALL 


KILJOB 


Bfi 


8* 


B I C 


#MS*DTR.. RO 



i Is carrier up or down? 
j Br if up 



i Has it been down very long? 

; Br if not 
)j Remember that we have lost carrier 

; Is line active? 

f Br if not 

> Should we always mon. carrier for line? 

i Br if so 
)>Are we monitoring carrier for this line? 

.; Br if not 

i Ignore tt input from the line 

.: Is line active? 

i Br if not 
>. LSW<R1 ) ; Are we logging off line now? 

i Br if yes — that takes care of it 
)iAre we doing logoff command file now? 

; Br if yes 

i Get index of job being aborted 

; K i 1 1 the job 

i Drop data terminal ready (hang up) 



TSEXC2 
CLKPHN 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
6S 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
82 
83 



011432 004772 OOOOOOG 
011436 00 5061 OOOOOOG 
011442 000403 



CALL 
CLR 
13 R 



eCDSDSS(R2) 
LOF-F-TM(R.t ) 
17* 



; Set data set status 
.; Clear logoff timer 



Carrier is up 

011444 052761 OOOOOOG OOOOOOG 16*: BIS #*CARUP, LSW3< Rl > ; Rememb er carrier is up 

J Reset lost-carrier tifrnn- 

011452 013761 OOOOOOG OOOOOOG 17*: MOV^ VTMOUT, LCDT JM<R1 ) J Reset carrier-lost timer 

i If jobs on dial-up lines remain in a logged off state for more than 
i a specified interval/ drop DTR to hang up on them. 



011460 005761 OOOOOOG 

011464 001407 

011466 005361 OOOOOOG 

011472 003001 

011474 042700 OOOOOOG 

011500 004772 OOOOOOG 



011504 012602 
011506 000207 



8*: 



v'j'*: 



TST 


L0FFTM(R1> 


SiEQ 


6* 


DEC 


LOFFTM < R 1 ) 


BGT 


6* 


BIC 


#MS*DTR, RO 


CALL 


eCDSDSS(R2) 


Finis h e d 




MOV 


<SP)+, R2 


RETURN 





Do we need to check time for this job? 

Br if not 

Is it time to drop DTR for this line? 

Br if not 

Drop data terminal ready (hang up) 

Set data set status 



I 
I 
I 
f 
I 
I 

c 

i 
€ 

€ 
€ 

i 
i 
i 
i 
i 
i 



TSEXC2 
DLGDSS - 

1 

P. 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

31 
32 
33 
34 
35 
36 
37 
38 
39 
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011510 
011512 



010346 
005000 



011514 017103 0000000 



011520 
1 1 524 
011526 



1 1 532 
011536 
011540 



011544 
011550 
011552 



011556 
011560 



032703 

00 14 Or.; 

052700 



032703 
001402 

052700 



032703 
00 1 40; ' 
052700 



012603 
000207 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



. SBTTL DLGDSS — Get data set status for DLll line 

DLGDSS is called to pet the data set status for a DLll line. 

I n p LI t B ; 
Rl = Physical lint-' index number. 

Outputs: 

RO - Generic data set status flays <MS*xxx) 



DLGDSS: MOV 
CLR 



R3. -<SP) 
RO 



; Form result in HO 
Get contents of DLll receiver status register 



MOV @RSR(R1),R3 
Se(? if line is ringing 



BIT 


#RING,R3 


BEG 


1* 


BIS 


#MS*RNG, RO 



See if carrier is up or down 



1$: 



BIT 


#CARDET, R3 


BEQ 


2* 


BIS 


#MS$CAR, RO 



Get receiver status register contents 



Is phone ringing? 
Br if not 
Set ring flaq 



Is carrier up or douin? 

Br if down 

Set carrier-up flag 



See if Data Terminal Readii is asserted 



2*: 



3*: 



B I T 


#TRMRDY.. R3 


BEQ 


3* 


BIS 


#MS*DTR, RO 


-■ i n i s h G d 




MOV 


<SP)+.. R3 


RETURN 





Is DTR asserted? 
Br if not 
Set DTR flag 



\ 



TSEXC2 
DLSDSS 
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1 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 



011562 



U 562 03 2700 0000000 
1 1 566 00 1 404 



011570 052771 0000000 0000000 
011576 000403 



. SBTTL. DLSDSS — Set data set status for DL 1 1 line 

DLSDSS is called to set data set control status for a DLll line. 

1 n p u t E : 

Rl - Physical line index number. 

RO •-- Control flags (HS-^DTR) 

DLSDSB: 

See if we should sot or drop DTR 



B 1 1 
13 EQ 

Set DTR 

BIS 
BR 



Drop DTR 
011600 042771 0000000 OOOOOOG IL: BIO 

F i n i s h o d 
011606 000207 9%: RETURN 



#tiS*DTR,RO 
1* 



.! Set or drop DTf?? 
; Br to drop DTR 



#TRMRDY, «RSR<Rl)iSet Data Terminal Ready 
9* 



#TRMRDY, eRSR(Rl ); Drop DTR 



TSEXC2 
DI..SBRK - 

1 

,2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



24 
25 
26 
27 
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I 



011610 



01161 032700 0000000 
011614 001404 



011616 052771 0000000 0000000 
011624 000403 



. SBTTL DLSBRK — Cnntrol break transmission for a DLll line 

DLSPRK is called to start or stop sending a break character to a DLll line. 

I n puts: 

Rl = F^ht^sical line number. 

RO := Break control flati <HS$BRK) 

DLSBRK: 

See if lue are to start or stop transmitting a break 



BIT #MS*BRK,RO 
BEO 1 $ 

Sttjrt transmitting a break 



.: Start or stop break? 
j Br if stop 



B.TS #TRBRK, STSR<R1 ) .i Start transmitting a break 
BR 9* 



i Stop transmitting a brt?r3k 

011626 042771 0000000 0000000 1$: BIC #TRBRK, STSR < Rl ) i Stop transmitting a break 

; F iiii £.hed 
> 
011634 000207 9*: RETURN 



TSEXC2 


— Misc 


. TSX-P] 


U 5 Ext? C 1.1 


DLSSPD - 
1 


— Set t 


ransmi sr 


;t. on spee 


2 
3 
4 








5 








6 








7 








S 








9 


011636 


010246 




.10 








11 








12 








13 


011640 


110061 


0000010 


14 


011644 


01000» 




15 


011646 


072227 


000014 


16 


011652 


052702 


004000 


17 


011656 






18 


011664 


017146 


0000000 


19 


011670 


042716 


1 70000 


20 


011674 


050216 




21 


011676 


012671 


OOOOOOG 


22 


011702 






23 








24 








25 








26 


011710 


012602 




27 


011712 


000207 
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H a Q p 



34 



. SBTTL DLSSPD - Gt-t transmission speed for- DLll line 

; DLSSPD is called to set the transmission speed f=or a DLll line. 

J .1 n p 1.1 1 G : 

; RO "-• Speed code. 

i Rl ~ Physical line indc-x number. 

> 

DLSSP D : MOV R 2 , - < SP ) 

i 

i Set speed in DLll control register 



; Qet speed c ode 

>Position the speed code 

; Set programmab ie-baud— rate-enable bit 
i *# Disable interrupts ■»* 
; Get current transmitter status 
i Clear the baud rate field 
; Set nem baud rate value 
; Store new value for transmitter 

i ■*!■« Enable interrupts «•* 



MOVB 


RO, LM.XPRM+1(R1 


iitJV 


RO, R2 


ASM 


#12. .. R2 


B.IS 


#004000, R2 


DISABL 




MOV 


eTSR(Rl ), --(SP) 


BIC 


#170000,. <SP) 


BIS 


R2, (SP) 


MOV 


(SP)+, eiSR <R1 ) 


EMABL 




Finished 




MOV 


( SP ) +, R2 


RETURN 





TSEXC2 
DZGDSS 



— Misc. 
•— Get da 
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1 



3 








4 








5 








6 








7 








8 








9 








10 








11 


011714 


010246 




12 


011716 


010346 




13 


011720 


00 5000 




14 








15 








16 








17 


011722 


016102 


0000000 


18 


011726 


016103 


0000000 


19 


OH 732 


1 1 6303 


001312' 


20 








21 








22 








23 


011736 


130372 


0000000 


24 


011742 


00 1 402 




25 


011744 


052700 


0000000 


26 








27 








28 








29 


011750 


130372 


OOOOOOG 


30 


011754 


00 1 402 




31 


011756 


052700 


OOOOOOG 


32 








33 








34 








35 


011762 


130372 


OOOOOOG 


36 


011766 


001402 




37 


011770 


052700 


OOOOOOG 


38 








39 








40 








41 


011774 


012603 




42 


011776 


012602 




43 


012000 


000207 





i 

f 



. SBTTL DZGDSS — Oft data set status for 0211 line 

DZGDSS is called to pet the data set status for a DZll line 

Input s : 
Rl '- Physical line index number. 

Outputs: 

RO ■-- Generic data set status flags (MSt&xxx) 



DZGDSS: MOV 
MOV 
CL.R 



R2.. -(SP.> 
R3, -<SP) 
RO 



Get DZll index number 



MOV 
MOV 
MOVE 



LMXNUM<R.1 ), R2 
LMXLN<R1)> R3 
MXLBIT<R3).. R3 



See if line is r i n g i n g 

BITB R3, eMXRING<R2) 

BEO 1* 

BIS #MS$RNG.. RO 

See if carrier is up 

BITB R3, @MXCAR<R2) 

BEQ 2* 

BIS #MS*CAR,RO 



; Build result in RO 



i Get DZll number 

.: Get # of line within DZll group (0-7) 

i Get line select bit for DZll registers 



Is this line ringing'' 
Br if not 
Set ring flag 



; Is carrier up or down? 

i Br if down 

; Set carrier-up flag 



See if Data Terminal Ready is asserted 



>*: 



n-. 



BITB 


R3, @MXDTR(R2) 


; Is DTR asserted?' 


BEQ 


3* 


> Bv if not 


BIS 


#MS$DTR, RO 


;SBt DTR flag 


F i n i B h e d 






MOV 


(SP)+, R3 




MOV 


<SP)+, R2 




RETURN 







TSEXC2 
DZSDSS 



• Misc. TSX--P1 
Set data set 
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1 

2 

3 

4 

5 

A 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 



012002 
012004 



012006 
012012 
012016 



012022 
012026 



012030 
012034 



1 0246 
010346 



016102 
016103 
116303 



032700 
001003 



OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 



000402 



012036 150372 OOOOOOG 



012042 
012044 

012046 



012603 
01 26 on 
000207 



. SBTTL DZSDSB -~ lift data set status for a DZil line 

DZSDSS is called to set data set status for a DZll line. 

Inputs: 
Ri ~ Physical line numbpr. 
RO = Data set status fiaqs (MS^DTR). 



DZSDSS: HOV 

MOV 



R2, -(SP) 
R3. -OP) 



Get DZil index number 

MOV LMXNUM(R1>,!<2 
MOV LMXLN<R1),R3 
MOVE MXLBIT(R3>, R3 



; Get DZll number 

jGet line # within DZll <0-7) 

j Get line select bit 



See if we should set or drop Data Terminal Ready 



iSet or drop DTR? 
,i Br if set DTR 



BIT 


#MS$DTR.. RO 


BWE 


1* 


i Drop DTR 




BICB 


R3, @MXDTR<R2) 


i:jr 


9* 


; Set DTR 




1^$: BISB 


R3, @MXDTR(R2) 


j F i n i & h e d 




9$: MOV 


(SP)+, R3 


MOV 


iSP)+> R2 


RETURN 





J Clear DTR flaq for our line 



; Set DTR flag for our line 



€ 
€ 
€ 
t 



TSEXC2 — Misc. TSX"-P;ius Elxecu MACRO V05. 04 Monday 21 -Dec -87 08; 4--') Page 37 
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1 
2 
3 



5BTTL DZSBRK 



Control break transmission for a DZll line 



DZSBRK is called to start or stop transmitting a break character 

to a DZll line. 



7 
8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 



23 
24 
25 
26 
27 
20 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 



012050 01024,'* 
012052 010346 
012054 010446 



012056 016102 0000000 
012062 016103 0000000 
012066 116303 001312' 



012072 116204 OOOOOOG 

012076 140304 

012100 032700 OOOOOOG 

012104 001401 

012106 150304 



012110 110472 OOOOOOG 
012114 110462 OOOOOOG 



012120 012604 

012122 012603 

012124 012602 

012126 000207 



Inputs: 
RO = Break control flap <MS$BRK) 
Rl - Physical line i •(!!.!{':< numbt^r. 



DZSBRK: MOV 
MOV 
MOV 



R2, --<;:iP) 
R3, ~(BP) 
R4. -<BP) 



Get DZll index number 



MOV 
MOV 
MOVB 



LMXNUM(RI ), R2 
LM.XLN<R1), R3 
MXLBIT<R3), R3 



Get DZll number 

Get line # within DZll iO-7) 

Get line select bit 



We keep a "shadoui" copy of the break register in memory since we 

cannot read the status of the hardware break register. 

i Get contents of shadow register 

J Assume we want to stop sending break 

; Do we want to start sending breakT' 

) Br if not 

i Set break flag for the line 

Set new break control flfsgs in hardware register and shadow register 



MOVB 


MXSBRK<R2), R4 


BICB 


R3, R4 


B I T 


#MS$BRK, RO 


BEQ 


1* 


B.tSB 


R3, R4 



1*: MOVB 
MOVB 

i Fins E-hed 

9f : MOV 
MOV 
MOV 
RETURN 



R4, @MXBRK<R2) 
R4, MXSBRK(Ri') 



(SP)+, R4 
(SP)+, R3 
( SP ) +, R2 



; Set status in bardutare register 
J Update shadow registei" 
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f 

€ 



3 








4 








5 








6 








7 








8 








9 


012130 


010346 




10 








11 








12 








13 


012132 


110061 


0000010 


14 


012136 


010003 




15 


012140 


042703 


OOOOOOC 


16 


012144 


000303 




17 


012146 


032700 


0000000 


18 


012152 


001003 




19 


012154 


052703 


OOOOOOG 


20 


012160 


000402 




21 


012162 


052703 


0000000 


22 


012166 


032700 


OOOOOOG 


23 


012172 


00 1 407 




24 


012174 


052703 


0000000 


25 


012200 


032700 


0000000 


26 


012204 


00 1 402 




27 


012206 


052703 


OOOOOOG 


28 








29 








30 








31 


012212 


052703 


010000 


32 


012216 


056103 


OOOOOOG 


33 


012222 


016100 


OOOOOOG 


34 


012226 


010370 


OOOOOOG 


35 








36 








37 








38 


012232 


012603 




39 


012234 


000207 





. 3BTTL DZSSPD — Bet transmission speed for a D211 line 

DZ3SPD is called to set the transmit/receive speed for a DZll line. 

Inputs: 
RO - Speed code. 
Rl = Physical line infJi^.-i! number. 

DZSSPD: MOV R3, -(SP) 

Build line parameter register value 

Save neuj parameter flags 

Get speed code 

Clear all but speed code 

Position speed code to match LPR field 

Are 7 bit characters wan ted 7' 

Br if yes 

Select 8 bit characters 

Select 7 bit characters 

Is parity wanted?" 

Br if not 

Enable parity 

Is odd parity wanted?" 

Br if not 

Select odd parity 



2*: 



MOVB 


RO, LM.XPRM+KR1) i 


MOV 


RO, R3 


BIC 


#-C<LP*SPD>, R3 ; 


SWAB 


R3 ; 


BIT 


#LP*7BT, RO i 


BNE 


1* ; 


BIS 


#DZ$SBT> R3 ; 


BR 


2* 


BIS 


#DZ*7BT, R3 ■> 


B I T 


#LP*PAR.. RO i 


BEO 


3$ i 


BIS 


#DZ«PAR, R3 ■> 


BIT 


#LP$ODD, RO ; 


BEQ 


3* ■> 


BIS 


#DZ$ODD> R3 i 



Storp IPR va.1ue for l:inf? 



3*: 



BIS 
BIS 
MOV 
MOV 

Finished 



MOV 
RETURN 



#10000, R3 
LMXLN<R1), R3 
LMXNUM<R1), RO 
R3, @MXLPR(RO) 



<SP)+, R3 



Set receiver-on flag 

Get line within mux <0-7) 

Get DZll number 

Set speed for the line 



TSEXC2 
DHGDSS 



— Misc. TSX~P 
■ Get data set 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

WW 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



. SDTTL DHODSS — Oft data set status for a DHll line 
DHGDSS is called to pet the data set status for a DHll line. 

Inputs: 

Ri = Physical line number 

Outputs: 
RO = Generic modem status flags (MSfxxx) 



012242 



012244 
012250 



010246 
010346 
005000 



016102 
016103 



DHGDSS: MOV 

MOV 
CLR 



R2, -<SP) 
R3, -(BP) 
RO 



OOOOOOG 
OOOOOOG 



01 



dcoc 



012300 



012306 
012312 
012314 



012320 
1 2324 
012326 



012336 
012340 



012344 
012346 
012350 



Get DHll index number 

MOV LMXNUM(R1 )> R2 
MOV LMXLN(R1),R3 

Get modem status 



042772 
050372 
017203 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 



032703 
001402 
052700 



032703 
001402 
052700 



032703 
001402 
052700 



012603 
012602 
000207 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



DISABL 

BIG 

BIS 

MOV 

ENABL 



.; Build result in RO 



i Get DHll index number- 

iGet line within DHll <0-15> 



; j j -K-K- Disable interrupts ** 



#MF$LIN, eDM'^CSR(R2) ;;iCiear DM11 line select field 



R3, ©DM*CSR<R2) 
€!DM*LSR<R2), R3 



See if phone is ring in y 



BIT 

BEQ 
n re; 



#MF*RIMG, R3 
1* 
#MS*RNG» RO 



1*: 



See if carrier is detected 

BIT #MF$CAR, R3 

BEQ 2* 

BIS #MS*CAR,RO 



iji Select line 

; ; ; Get line status value 

; *# Enable interrupts »* 



ils the phone ringing?' 
> Br if not 
iSet ring flag 



;Is carrier detected?" 

i Br if not 

; Set carrier flag 



See if Data Terminal Ready is asserted 



?$: 



3$: 



BIT 


#MF«DTR, R3 


i Is DTR asserted?' 


BEQ 


3* 


J Br if not 


BIS 


#MS*DTR> RO 


;Set DTR flag 


Finished 






MOV 


(SP)+, R3 




MOV 


(SP)+, R2 




RETURN 







TSEXC2 
DHSDSS 



— Misc. tsx~p:i 

-- Set data set 
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3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

24 
25 
26 



. SBTTL DHSDSS — Bt-t data set status foT a DHll line 

DHSDSS is called to set the data set status for a DHll line. 

1 n p u t s : 
Ri ~ Physical line indrx number. 
RO =• Data set status flaci& <MS*DTR) 



0123S 



354 



012356 
012362 
012366 
012374 
012402 



012406 
012412 
012414 
012422 
012424 



1 0246 
010346 



016102 
016103 

042772 
050372 



032700 
00 1 004 
042772 
000403 
052772 



DHSDSS: MOV 

MOV 



R2, -(SP) 
R3, -(SP) 



Oet modem index number and select our line 



OOOOOOG 

OOOOOOG 

0000000 OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 1*: 



MOV 

MOV 

DISABL 
BIG 
n TQ 



LMXNUM(RA ) , R2 
LMXLN<R1), R3 



i Get DHll index number 

iGet line # within DHll <0--15) 

j ; ; ** Disable interrupts «•«• 

#MF*LIN, @DM1iCSR<R2) iii Clear DM1 1 line # field 

R3, @DM*CSR<R2) ;;;Select our line 



See if liie should set or drop Data Terminal Ready 

BIT #MS$DTR>RO ; ; ; Set or drop DTR? 

BWE 1« ; ; ; Br to set DTR 

BIG #MF*DTR, e;DM*LSR<R2) i i ; Drop DTR 

BR 9* 

BIS #MF*DTR.. @DM*LSR<R2)i i ; Set DTR 



CO 

29 
30 
31 
32 
33 



F i n i s h e d 



012432 
012440 
012442 
012444 



9*: 



012603 
012602 
000207 



EMABL 
MOV 
MOV 
RETURN 



i ** Enable interrupts «•* 



(SP)+, R3 
< SP ) +, R2 
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Pa?qe 4,t 



3 
4 
5 
6 
7 
8 
9 

10 

11 

o: 



12446 
12450 



010246 
010346 
010446 



12 

13 

14 

15 

16 012454 110061 0000010 

17 

18 

19 

20 03 



23 
24 



26 

27 

28 
29 
30 
31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 
47 
48 
49 

50 

51 

52 

53 
54 
55 
56 
57 



12460 
12462 
12466 



12472 
12476 
12502 



12506 

12512 
12514 
12520 
12522 
12526 
12530 
12534 
12536 
12542 
12546 
12550 
12554 
12560 
12562 



12566 
12574 
12600 
12604 



010003 
042703 
1 1 6303 



016102 
116104 
052704 



072327 
010346 
072327 
052603 
032700 
001003 
052703 
000402 
052703 
032700 
001407 
052703 
032700 
00 1 402 
052703 



1 1 0472 
010372 



OOOOOOC 
001352' 



OOOOOOG 
0000000 
0000000 



000006 

000004 

0000000 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 



SBTTL DHSSPD 



Set transmit/receive speed for DHll line 



DHSSPD is called to set the transmit/receive speed for a DHll line. 
The parity and character length parameters are also set. 



Inputs: 
RO = Speed, length, and parity codes. 
Rl "■ Physical line inde:< number. 



DHSSPD: MOV 
MOV 
MC3V 



R2, -(SP) 
R3, -<SP) 
R4, -(SP) 



Update the LMXPRM table for this line 

MOVB RO, LMXPRM+1 (Rl ) ; Store new codes for line 

Convert TSX-Plus speed code into DHll speed code 

MOV RO, R3 ;Get speed code 

BIC #-C=:LP*3PD>> R3 ; Clear all but speed code 

MOVB DHSPCT(R3), R3 i Convert to DHll speed code 



Get DHll index number 



MOV 

MOVB 

BIS 



LMXNUM(Rl), m 
LMXLW(Rl), R4 
#HF*RIE,R4 



j Get DHll index number 

; Get # of line within mux group 

; Set receiver interrupt enable flag 



Build value to use for line parameter register 



1$: 
2$: 



ASH #6, R3 

MOV R3, -(SP) 

ASH #4, R3 

BIS (SP)+, R3 

BIT #LP*7BT, RO 

BNE 1* 

BIS #HF*SBT, R3 

BR 2* 

BIS #HF*7BT, R3 

BIT #LP*PAR,RO 

BEQ 3* 

BIS #HF*PAR, R3 

BIT #LP«ODD, RO 

BEQ 3* 

BIS #HF*ODD, R3 



Position speed code for receive speed 

Save positioned receive speed 

Position code for transmit speed 

Combine transmit and receive speed codes 

7 bit characters wanted? 

Br if yes 

Select S bit characters 

Select 7 bit characters 

Parity wanted? 

Br if not 

Enable parity 

Odd parity wanted? 

Br if not 

Select odd parity 



€ 



Select LPR register for line being set and store the LPR value 



3*: 



DISABL 
MOVB 
MOV 
EWABL 



R4, @MH*SCR(R2) 
R3, ©MH*LPR(R2) 



i ; -H* Disable interrupts «•« 

J i Select our mu.x line 

j ; Store the LPR value for this line 

*K- Enable interrupts «•* 



12612 012604 



F i ?i i B h e d 
MOV 



(SP)+, R4 



I 
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58 1 26 1 4 01 2603 MOV ( SP ) +, R3 

59 012616 01260r' MOV <SP)+. R2 

60 012620 000207 RETURN 



€ 
€ 



TSEXC2 
DHSBRK 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 



010246 
012624 010346 



012626 016102 0000000 

012632 016103 0000000 

012636 006303 

012640 016303 001252' 



012644 032700 OOOOOOG 
012650 001403 



012652 050372 
012656 000402 



OOOOOOG 



012660 040372 OOOOOOG 



012664 012603 
012666 012602 
012670 000207 



. SBTTL DHSBRK - Control break transmission for a DHll line 

DHSBRK is called to start or stop transmitting a break to a DHll line. 

Inputs: 
RO = Break control flag (MS$BRK) 
Rl - Line index numbt-r 



DHSBRK: MOV 
MOV 



R2> -<SP) 
R3, -<SP) 



Get DHll index number and line select flag 



MOV 
MOV 
ASL 
MOV 



LMXNUM<R1), R2 
LMXLN<R1). R3 
R3 
DHLBIT(R3),R3 



Get DHll index number 
Get line within DHll <0-15) 
Convert line # to word table index 
Get flag bit corresponding to line # 



See if we should start or stop sending a break 



BIT #MS«BRK, RO 
BEG 1* 



; Start or stop sending break? 
j Br if stop 



Start sending a break to this line 

BIS R3, ©MH*BRK<R2) i Set break flag for our line 
BR 9* 

Stop sending a break to this line 

1$: BIC R3, @MH$BRK<R2) ; Stop sending a break to this line 

F i n i G h e d 
9«: 



MOV 
MOV 
RETURN 



(SP)+. R3 
(SP)+, R2 



TSEXC2 


— Misc 


. TSX-Pl 


us Execu 


VHGDSS - 

1 

2 
3 


— Get d 


ata set 


5tatU5 f 








4 








5 








6 








7 








8 








9 








10 








11 


012672 


010246 




12 


012674 


010346 




13 


012676 


010446 




14 


012700 


005000 




15 








16 








17 








IS 


012702 


016102 


OOOOOOG 


19 


012706 


016103 


0000000 


20 


012712 


052703 


OOOOOOG 


21 








22 








23 








24 


012716 






25 


012724 


1 1 0372 


OOOOOOG 


26 


012730 


017204 


OOOOOOG 


27 


012734 


017203 


OOOOOOG 


2B 


012740 






29 








30 








31 








32 


012746 


032703 


OOOOOOG 


33 


012752 


001402 




34 


012754 


052700 


OOOOOOG 


35 








36 








37 








38 


012760 


032703 


OOOOOOG 


39 


012764 


001402 




40 


012766 


052700 


OOOOOOG 


41 








42 








43 








44 


012772 


032704 


OOOOOOG 


45 


012776 


001402 




46 


013000 


052700 


OOOOOOG 


47 








40 








49 








50 


013004 


012604 




51 


013006 


012603 




52 


013010 


012602 




53 


013012 


000207 
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. SBTTL VHGDSS — Get data set status for a DHVll line 

VHGDSS is called to get the data set status for a DHVll line. 

I n p V t B : 
Rl = Physical line index number. 

Outputs; 
RO = Generic modem status flags (HSfxxx) 



VHGDSS: MOV 
MOV 
MOV 
CLR 



R2, -<SP) 
R3, -<SP) 
R4. -(SP) 
RO 



i Form result in RO 
Get DHVll index number and line number 



MOV 
MOV 
BIS 



LMXiMUM<Rl), R2 
LMXLN(Rl), R3 
#VF$RIE, R3 



1*: 



Get modem status 

DISABL 

MOVE R3, @VH*CSR < R2 ) 

MOV @VH*LCR < R2 ) , R4 

MOV @VH*LSR(R2), R3 

EMABL 

See if line is ringintj 

BIT #VF*RNG. R3 

BEQ 1* 

BIS #MS*RNG, RO 

See if carrier is up 

BIT #VF*DCD, R3 

BEG 2$ 

BIS #MS*CARj.RO 



Get mux index number 

Get line # within mux group 

Set receiver interrupt enable flag 



;;«•«• Disable interrupts ** 
jjSelect our line in mux 
; i Get line control register 
; j Get current line status 
+r« Enable interrupts 



Is the line ringing? 

Br if not 

Set ringing flag 



Is carrier detected? 

Br if not 

Set carrier flag 



Bee if Data Terminal Reedii is asserted 



2^: 



3*; 



BIT 


#VF$DTR> 


BEG 


3* 


BIS 


#MS$DTR> 


i n i s h e d 




MOV 


< SP ) +, R4 


MOV 


<SP>+, R3 


MOV 


( SP > +, R2 


RETURN 





Is Data Terminal Ready asserted? 

Br if not 
Set DTR flag 



TSEXC2 
VHSDSS 



— Misc. TSX-P3 

- Set data set 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 



013014 
013016 



013020 
013024 
013030 



013034 
013042 
013046 
013052 
013054 
013062 
013064 



013072 
013100 
013102 
013104 



010246 
010346 



016102 
016103 
052703 



000000\'3 
OOOOOOG 
OOOOOOG 



1 1 0372 
032700 
001004 
042772 
000403 
052772 



. BBTTL VHSDSS — Stt data set status for a DHVll line 

VHSDSS is called to set the data set status for a DHVll line. 

Inputs: 
Rl = F'*hysical line index number. 
RO =^ Data set status flaqs (MS$DTK). 



VHSDSS: MOV 

MOV 



R2, -<SP) 
R3, -<SP) 



Qet DHVll mux index number and line number 



MOV 
MOV 
BIS 



LMXNUM<R.i ).R2 
L.MXLN<Ri).. R3 
#VF$RIE, R3 



; Oet mux index number 

i Get # of line within mux group 

; Set receiver interrupt enable flag 



Set or drop the Data Terminal Ready flag 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 1*: 



DISABL 

MOVE 

BIT 

BNE 

BIC 

BR 

BIS 



Finis It e d 



M: 



012603 
01260P 
000207 



EWABL 
MOV 
MOV 
RETURN 



R3, eVH*CSR<R2) 
#MS*DTR, RO 
1* 



*•«• Disable interrupts «•* 
Select our line in mux 
Set or drop DTR? 
Br if want to set DTR 



#VF*DTR, <i(VH*LCR(R2); ; ; Clear DTR bit 

2« ' 

#VF*DTR>eVH$LCR<R2); ; i Set DTR bit 



J *«• Enable interrupts «■«■ 



<SP)+, R3 
<SP)+, R2 
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3 








4 








5 








6 








7 








8 








9 


013106 


010246 




10 


013110 


010346 




11 


013112 


010446 




12 








13 








14 








15 


013114 


110061 


0000010 


Ih 








17 








18 








19 


013120 


010003 




20 


013122 


042703 


OOOOOOC 


21 


013126 


1 1 6303 


001372' 


22 








23 








24 








25 


013132 


016102 


0000000 


26 


013136 


116104 


0000000 


27 


013142 


052704 


0000000 


28 








29 








30 








31 


013146 


000303 




32 


013150 


010346 




33 


013152 


072327 


000004 


34 


013156 


052603 




35 


013160 


032700 


0000000 


36 


013164 


001003 




37 


013166 


052703 


OOOOOOG 


38 


013172 


00040n 




39 


013174 


052703 


0000000 


40 


013200 


032700 


OOOOOOG 


41 


013204 


001407 




42 


013206 


052703 


0000000 


43 


013212 


032700 


OOOOOOG 


44 


013216 


001002 




45 


013220 


052703 


OOOOOOG 


46 








47 








48 








49 


013224 






50 


013232 


1 1 0472 


OOOOOOG 


51 


013236 


010372 


OOOOOOG 


52 


013242 






53 








54 








55 








56 


013250 


012604 




57 


013252 


012603 





, SBTTL VHSSPD — Set transmit/receive speed for a DHVll line 
Set the transmit/receive speed for a DHVll line. 

Inputs: 

RO = Speed code. 

Ri ~ Line index number 



VHSSPD: MOV 
MOV 
MOV 



R2> -<SP) 
R3> -(SP) 
R4, ~<SP) 



Updaite the LMXPRM table for this line 

MOVB RO, LMXPRM+KRl) ; Store flags for line 

Convert TSX-Plus speed code into DHVll speed code 

MOV RO, R3 i Get flags 

BIG #--C<LP*SPD:>, R3 ; Clear all but speed flags 

MOVB VHSPCT(R3), R3 .= Convert to DHVll speed code 



Get DHVll index number 

MOV LMXNUM(Rl), R2 
MOVB LMXLN<R1),R4 
BIS #VF$RIE, R4 



i Get DHVll index number 

; Get line # within mux group 

i Set receiver interrupt enable flag 



2$: 
3$: 



Cojistruct line parameter value for this line 

.; Position speed for receive speed 

; Position speed for transmit speed 

; Combine receive and transmit speeds 

5 7 bit characters tuanted 

; Br if yes 

; Set S bit characters 

.: Set 7 bit characters 

j Parity wantedT-" 

; Br if not 

j Enab le pari ty 

i Odd parity wanted? 

; Br if yes 

j Select even parity 

Select our line and store the parameter value 



SWAB 


R3 


MOV 


R3, -<SP) 


ASH 


#4, R3 


BIS 


<SP)+, R3 


BIT 


#LP$7BT, RO 


BNE 


2* 


BIS 


#VF*SBT, R3 


BR 


3* 


BIS 


#VF$7BT, R3 


BIT 


#LP«PAR, RO 


BEO 


1* 


BIS 


#VF*PAR, R3 


BIT 


#LP«ODD, RO 


BNE 


1* 


BIS 


#VFf EVN, R3 



i^: 



DISABL 
MOVB 
MOV 
ENABL 



R4. ©VH*CSR<R2) 
R3, @VH*LPR<R2) 



i i i •(?•* Disable interrupts «-«^ 
.;j; Select our mux line 
i ; i Set LPR value for this line 
i ** Enable interrupts ** 



F i n i shed 

MOV 
MOV 



<SP)4-, R4 
(SP)+, R3 
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58 1 3254 .1 2602 MOV < SP ) +. R2 

59 013256 000207 RETURN 



TSEXC2 
VHSBRK - 

1 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



— Misc. TSX-FI 

- C c n t r o 1 b r e a N 



013260 
013262 



013264 
013270 
013274 



013300 
013306 
013312 
013316 
013320 
013326 
013330 



013336 
013344 
013346 
013350 



016102 
016103 
052703 



OOOOOOG 
0000000 
OOOOOOG 



1 1 0372 
032700 
001404 
052772 
000403 
042772 
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tranamissi on for a DHVl 1 line 

. SBTTL VHSBRK — Control break transmission for a DHVli line 

> Start or stop transmitting a break to a DHVll line. 

i Inputs: 

; RO = Break control flsji (MS*BRK) 

i Rl = Line inriex number 



VHSBRK: 110V 
MOV 



R2, -<SP) 
R3, -<BF) 



Get mux index number and line number 



MOV LMXNUM(Ri), R2 
MOV LMXLN(R1)>R3 
BIS #VF*RIE.. R3 



> Oet mux index number 

j Get # of line within mux 

5 Set receiver interrupt enable flag 



Set or drop the break control flag within the line control register 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 1$: 



DISABL 

MOVB 

BIT 

BEQ 

BIS 

BR 

BIC 



; j j *-Jf Disable interrupts «■* 
R3, @VH*CSR(R2) iiiSelect our mux line 
#MS*BRK, RO ;>; Start or stop break? 
1* J ; ; Br i f stop 

#VF*BC, eVH-*LCR<R2)i ; i Set the break flag for the line 
2* 
#VF*BC, SVH*LCR<R2)i ;; Clear the break flag for the line 



F i n i shed 



012603 
012602 
000207 



ENABL 
MCJV 
MOV 
RETURN 



(SP)+, R3 
( SP ) +, R2 



i ■«■*■ Enable interrupts ** 











TSEXC2 


— Misc 




DLCLOK - 
1 


— Timer 




2 
3 
4 






5 
6 
7 
8 






9 
10 


013352 




11 
12 






13 


013352 




14 
15 
16 
17 


013360 




18 


1 5362 




19 


013370 




20 


1 3372 




21 


013400 




22 


013402 


i 


23 


013410 




24 


013416 




25 


013424 




26 


013432 




27 
28 


013434 




29 

30 






31 


013442 




32 


013450 




33 


013452 




34 


013460 




35 


013462 




36 


013470 




37 


013474 




38 
39 
40 






41 


013S02 


I 






M 
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000207 



SBTTL DLCLOK 



Timer driven routine for DLll lines 



027127 0000000 OOOOOOG 
101050 



DLCLOK is a timer-driven routine called periodically to check on the 

status of a DLll line. 

I n p u t s : 
RX ~ Physical line index number 

DLCLOK: 

See if this line has been stolen by some special device handler 

CMP €!INVEC<R1), #INRECV; HAS LX HANDLER STOLEN INTERRUPT VECTOR 

BH.T 20* i BR IF YES 



Check for lost input int£>rrupts 



032771 OOOOOOG OOOOOOG 

001424 

032761 OOOOOOG OOOOOOG 

00 1 4 1 5 

042771 OOOOOOG OOOOOOG 
052771 OOOOOOG OOOOOOG 

000403 

052761 OOOOOOG OOOOOOG 15*: 



BIT #RCVDON, ©RSR(Rl)i IS AN INPUT CHAR PENDING NOW? 

BEQ 1* ; BR IF NOT 

BIT #*IITiri, LSW5<Rl)i HAVE WE STARTED TIMER YET? 

BEQ 15$ i BR IF NOT 

DISABL ; »* DISABLE »* (NEEDED FOR FLAKEY DLll'S) 

BIC #RDINT, ©RSR<R1) i WE SEEM TO HAVE LOST AN INTERRUPT 

BIS #RDINT, €RSR<R1) i TRY TO FORCE AN INTERRUPT 

ENABL ; ■«■■>!■ ENABLE •»* 

BR 1* 

BIS #*IITIM, LSW5(R1); START INPUT INTERRUPT TIMER 



Check for lost output interrupts 



032761 OOOOOOG OOOOOOG 1*: BIT 

001411 BEQ 

032761 OOOOOOG OOOOOOG BIT 

001410 BEQ 

042761 OOOOOOG OOOOOOG BIC 

004737 OOOOOOG CALL 

052761 OOOOOOG OOOOOOG 13*: BIS 



#*OITIM, LSW5<R1); Have we started timer interval? 

13* .: Br if not 

#*XCHAR. LSW3(R1 ); Are we still waiting for interrupt? 

20* i Br if not 

#*XCHAR.. LSW3<Rl)i Say wait is over 

DLSTRT i Try to start transmitter 

#*0ITIM,LSW5<R1); Start timed interval 



i Finished 

i 

20*: RETURN 



i 
i 
1 

4 

i 
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3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 

15 

16 
17 
IS 
19 

20 

21 

22 

23 



26 
27 
28 
29 

30 

31 

32 

33 

34 

35 

36 

37 

38 
39 
40 
41 

42 

43 

44 



. SBTTL DZCLOK — Timer driven routine for DZll lines 

DZCLOK is called periodically from the clock routine to check on the 
status of DZll lines. 

I n f I u t B : 
Rl ~ Phi|sical line index number 



25 



13504 
13506 



13510 
13514 
13520 



13524 
13532 
13534 
13542 
13544 
13552 
13560 



13566 
13574 
13576 
1 3604 
13606 
13614 
13616 
13624 
13630 



1 363c> 
13640 
13642 



010246 
010346 



016102 
016103 
116303 



032772 
001415 
032761 
00 1 406 
042772 
052772 
052761 



032761 
00 1 4 1 V> 
032761 
001414 
032761 
001010 
042761 
004737 
052761 



012603 
012602 
000207 



DZCLOK: MOV 
MOV 



R2, -<SP) 
R3. -<SP) 



<5et DZll mux index number r3nd number of line within mux 



0000000 

ooooooe 

001312' 



MOV LMXNUM<RJ ),R2 
MOV LMXLN<R1)>R3 
MOVE MXLBIT<R3), R3 



Get DZll mux index number 

Oet # of line within mux <0~7) 

Oet line select bit for mux register 



Check for lost input intt^rrupts 



0000000 OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 1*: 



BIT #RDONE. ©MXCSR*:R2); Does DZll have a pending input character? 

BEQ 3* ; Br if not 

BIT #*IITIM, LSW5<R1); Have we started input interrupt timer? 

BEQ 1* ; Br if not 

BIC #RIE, @MXCSR<R2) ; Drop receiver interrupt enable 

BIS #RIE. @MXCSR<R2) ; and raise it again to try to force interrupt 

BIS #*IITIM, LSW5(Rl)i Start input interrupt timer 



Check for lost output interrupts 



OOOOOOG OOOOOOG 3«: 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 13*: 

i 
i 

9$: 



BIT 

BEG 

BIT 

BEQ 

BIT 

BME 

BIC 

CALL 

BIS 

F i n i Ei h e d 

MOV 
MOV 

RETURN 



#*0ITIM*LSW5<R1); Have we started timer interval? 

13* J Br if not 

#«XCHAR, LSW3<R1); Are we still waiting for interrupt' 

9* j Br if not 

#«CTRLS, LSW3<R1 )i Is output suspended due to ctrl-S? 

9* ; Br if yes 

#*XCHAR, LSW3<Rl)i Say wait is over 

DZSTRT 'Try to start transmitter 

#*OITIM. LSW5(Ri)i Start timed interval 



<SP)+, R3 
(SP)+, R2 



i 
t 
4 
4 
4 
t 
4 
i 



( 

f 
i 
c 
i 

i 
i 
i 
I 

€ 
€ 

i 
i 
i 
i 
i 
i 
i 
i 
i 



TSEXC2 
DHCLOK ■ 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

18 

19 
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013644 
013644 



013644 052761 OOOOOOQ OOOOOOG 
013652 005237 OOOOOOG 



013656 000207 



. SBTTL DHCLOK — Timer driven routine for DHll lines 

; DHCLOK is called every 0. 5 seconds from the clock driven routine to 
; do checking for DHll and DHVll lines 

t Inputs: 

> Ri " Physical line index number. 

i 

VHCLDK: 
DHCLOK: 

i 

i Set flag which requests clock driven output processing for the line 



13 IS 
INC 

Finish e d 

RETURN 



#«DHCDO, LSWIO(RI) 
NEDCDD 



;Request clock-driven output 
i Say clock processing needed 



€ 
f 
f 

i 
i 

€ 
I 

( 
< 
€ 

C 
i 
i 
i 

i 
i 
i 



TSEXC2 


— riisc 


TSX-P} 


u s E X e c u 


SYSDIE - 

1 
2 
3 


— Fatal 


sy stem 


h a 1 1 








4 








5 








6 








7 








S 








9 








10 








11 








12 








13 








14 








15 


013660 


010046 




16 


013662 


010146 




17 


013664 


010246 




18 


013666 


010346 




19 


013670 


010446 




20 


013672 


010546 




21 








22 








23 








24 


013674 


005037 


0000000 


25 


013700 


005037 


0000000 


26 








27 








28 








29 


013704 


012701 


001056' 


30 


013710 


004737 


014242' 


31 








32 








33 








34 


013714 


013701 


0000000 


35 


013720 


004737 


014310' 


36 








37 








38 








39 


013724 


013701 


0000000 


40 


013730 


062701 


000002 ' 


41 


013734 


004737 


014242' 


42 








43 








44 








45 


013740 


012701 


001120' 


46 


013744 


004737 


014242' 


47 


013750 


013701 


0000000 


48 


013754 


004737 


014310' 


49 








50 








51 








52 








53 


013760 


013701 


OOOOOOG 


54 


013764 


00 1 42; i 




55 








56 








57 









V05. 04 Monday 21~Dec~S7 08:44 Page 50 



i 
f 



SDTTL SYSDIE 



Fatal system halt 



SYSDIE is entered from the system SYSHLT routine when a system 
crash is occurring because a DIE macro was executed. 

Inputs: 
DIEMSO = Address of error message to print. 
DIEARG = Argument value to print with error message. 
DinPC = Address of call to SYSHLT. 
DIESP = Stack pointer at time of crash. 
TRPAR5 = Kernel PARS contents at time of crash. 

Save all registers on the stack. 



SYSDIE; MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



RO. -(SP) 
R 1 , - < SP ) 
R2, "(SP) 
R3. -(BP) 
R4, -(SP) 
R5, -(SP) 



Initialize some cells that are used to pass information to TSDUMP 



CLR 
CLR 



DMPOVL 
DMPHND 



Print message heading. 



MOV 
CALL 



#T.XFSE, R1 
HLTPRT 



Pr:int abort location. 



MOV 
CALL 



DIEPC, Rl 
HLTOCT 



Print error message. 

MOV DIEMSG, Rl 
ADD #DIEBAS. Rl 
CALL HLTPRT 

Print argument value. 



MOV 


#TXARG, 


Rl 


CALL 


HLTPRT 




MOV 


DIEARG, 


Rl 


CALL 


HLTOCT 





If the argument value is 
a system overlay. 



MOV 
BEQ 



TRPAR5, Hi 
21* 



i Overlay name 
> Hand ler name 



i "FATAL SYSTEM ERROR. 
i PRINT IT 



i GET ADDRESS OF CALL TO SYSHLT 
i PRINT OCTAL VALUE 



i GET ADDRESS OF ERROR MESSAGE 
; PRINT IT 



.! "ARGUMENT VALUE = " 
; PRINT HEADING 
i GET ARGUMENT VALUE 
> PRINT OCTAL VALUE 

in the par 5 range., it is probably in 



; Get the KPAR5 value 

i Br if zero - print value 



€ 
€ 



Check for base address of system overlay region. 



TSEXC2 


— Misc 


. tsx-p:( 


us E X e c u 


SYSDIE - 


— Fatal 


system 


halt 


58 


013766 


013700 


0000000 


59 


013772 


026001 


0000000 


60 


013776 


00 1 426 




61 


014000 


062700 


000006 


62 


014004 


021027 


004537 


63 


014010 


00 1 370 




64 








65 








66 








67 


014012 


013700 


OOOOOOG 


68 


014016 


026001 


OOOOOOG 


69 


014022 


001446 




70 


014024 


162700 


000002 


71 
72 
73 


014030 


002372 










74 








75 


014032 


012701 


001137' 


76 


014036 


004737 


014242' 


77 


1 4042 


013701 


OOOOOOG 


7S 


014046 


004737 


014310' 


79 


014052 


000445 




SO 








81 








82 








S3 


014054 


016004 


OOOOOOG 


84 


014060 


163700 


OOOOOOG 


85 


014064 


010003 




86 


014066 


0050012 




87 


014070 


071227 


000006 


88 


014074 


005202 




89 


014076 


012701 


001155' 


90 


014102 


004737 


014242' 


91 


014106 


010201 




92 


014110 


004737 


014310' 


93 


014114 


012701 


001173' 


94 


014120 


004737 


014242' 


95 


014124 


010401 




96 


014126 


010137 


OOOOOOG 


97 


014132 


004737 


014366' 


98 


014136 


000413 




99 








100 








101 








102 


014140 


016002 


OOOOOOG 


103 


014144 


012701 


001205' 


104 


014150 


00473? 


014242' 


105 


014154 


010201 




106 


014156 


010137 


OOOOOOG 


107 


014162 


004737 


014366' 


108 








109 








110 








111 


014166 


012701 


001223' 


112 


014172 


004737 


014242' 


113 


014176 


013701 


OOOOOOG 


114 


014202 


004737 


014310' 
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1*: 



MOV 
CMP 
GEO 
ADD 
CMP 
BNE 



OVRADD, RO 
0. PAR(RO), Rl 
2* 

#6, RO 
<R0), #4537 
1$ 



Find address of the overlay table 

Check PAR5 with mapped overlay address 

Br if values match 

Find the next overlay region 

Check for end of table, a <JSR R5, *OVRH> 

Br to check next table entry 



Check for base of loaded handler region. 



11*: 



MOV 
CMP 
BEQ 
SUB 
BGE 



NUMDEV. RO 

HANPAR<RO), Rl 

12* 

#2, RO 

11* 



Print kernel PARS contents. 

!1*: MOV #TXPAR5.. Rl 

CALL HLTPRT 

MOV TRPAR5, Rl 

CALL HLTOCT 

BR 3* 



Get highest byte inde.x for loaded devices 

Check PARS with mapped handler address 

Br if values match 

Offset to next device handler 

Br to check next handler entry 



'■PAR5 VALUE = " 
PRINT HEADING 
GET ARGUMENT VALUE 
PRINT OCTAL VALUE 
Go halt the system 



PARS address located in mapped system region - report segment ID. 

?*: MOV O. ADR<R0),R4 ; Get the radSO overlay identifier 

Sub the base address of the overlay table 

Move to low-order address 

Clear high-order address 

Divide by 6 <# bytes/ overlay table entry) 

Normalize base to one 

"Set), value •-" 

Print heading 

Get the segment 

Print the octal 

"Overlay: " 

Print heading 

Restore the overlay identifier 

Pass overlay name to TSDUMP 

Print the radSO overlay identifier 

Go halt the system 

PARS address located in loaded device handler - report device name. 



MOV 


0. ADR<RO) 


SUB 


OVRADD. RO 


MOV 


RO, R3 


CLR 


R2 


DIV 


#6, R2 


INC 


R2 


MOV 


#TXSEG, R.1 


CALL 


HLTPRT 


MOV 


R2, Rl 


CALL 


HLTOCT 


MOV 


#TXOID, RJ 


CALL 


HLTPRT 


MOV 


R4, Rl 


MOV 


R 1 , DMPOVL 


CALL 


HLTRAD 


BR 


3* 



number 
segment number 



12*: 



Print 



3*: 



MOV 


PNAME<RO), 


R2 ; 


MOV 


#TXDEV, Rl 




CALL 


HLTPRT 




MOV 


R2, Rl 




MOV 


Rl, DMPHND 




CALL 


HLTRAD 




stack 


pointer at 


time of 


MOV 


#SPTXT, Rl 




CALL 


HLTPRT 




MOV 


DIESP, Rl 




CALL 


HLTOCT 





Get the RAD50 device name 

"Device name : " 

Print heading 

Get the device name 

Pass device name to TSDUMP 

Print the radSO device name 

crash 

Point to message heading 
Print the heading 
Get SP at time of crash 
Print it 



I 



TSEXC2 


— Misc 


TSX~P3 


us E X e c u 


SYSDIE - 


— • Fatal 


sy stem 


halt 


115 








116 








117 








118 


014206 


105737 


0000000 


119 


014212 


001001 




120 


014214 


000000 




121 








122 








123 








124 


014216 


013701 


OOOOOOG 


125 


014222 


062701 


000002 ' 


126 


014226 


012702 


OOOOOOG 


127 


014232 


112122 




128 


014234 


00 1 376 




129 


014236 


000137 


OOOOOOG 
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See if we should call the system crash dump module or halt the system 

Should we do a system dumpT' 

Br if yes 

Halt the system 

Enter system overlay to produce a crash dump 

4$: MOV DIEMSG, Rl ; Get address of error message text 



TSTB 


VSYDMF 


BNE 


4* 


HALT 





5$: 



MOV 


DIEMSG, Rl 


ADD 


#DIEBAS, Rl 


MOV 


#DMPTXT, R2 


MOVE 


(Rl)+, <R2)^ 


BNE 


5* 


JMP 


DODUMP 



i Point to area where we pass message 

; Store message text 

i Loop till all of message moved 

i Enter dump routine 
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4 








5 








6 








7 


014242 


010146 




8 


014244 


1 12100 




9 


014246 


00 1 406 




10 


014250 


120027 


000200 


11 


014254 


00 1 4 1 ;::i 




12 


014256 


004737 


014 524' 


13 


1 4262 


000770 




14 








15 


014264 


012700 


000015 


16 


014270 


004737 


014524' 


17 


014274 


012700 


000012 


IS 


014300 


004737 


014524' 


19 








20 


014304 


01260.1 




21 


014306 


000207 




23 








24 








25 








26 








27 








28 








29 








30 


014310 


010146 




31 


014312 


010246 




32 


014314 


012702 


000006 


33 


014320 


005000 




34 


014322 


073027 


000001 


35 


014326 


000403 




36 


014330 


005000 




37 


014332 


073027 


000003 


38 


014336 


062700 


000060 


39 


014342 


004737 


014524' 


40 


014346 


077210 




41 


014350 


012701 


001136' 


42 


014354 


004737 


014242' 


43 


014360 


012602 




44 


014362 


01260:1 




45 


014364 


000207 




46 








47 








48 








49 








50 








51 








52 








53 








54 


014366 


010146 




55 


014370 


010246 




56 


014372 


005000 




57 


014374 


071027 


003100 



HLTPfrr is called to print an ASCII string on the console terminal. 



Inputs: 
Rl = Address of ASCIZ siring to print. 



f 

c 

f 



HLTPRT: MOV 


R 1 , - ( SP ) 


1^-5: MOVB 


(Rl>+, RO 


BEG 


2* 


CMPB 


RO, #200 


I3EQ 


3* 


CALL 


HLTCHR 


BR 


1* 


i Print CR-Lf. 




3^: MOV 


#CR>RO 


CALL 


HLTCHR 


MOV 


#LF, RO 


CALL 


HLTCHR 


> F-inished 




3S; MOV 


(SP)+, Rl 


RETURN 





GET NEXT CHAR FROM TEXT STRING 

BR IF HIT END OF STRING 

END WITHOUT CR-LF? 

BR IF YES 

SEND CHAR TO TERMINAL 

GO GET NEXT CHAR 

PRINT CR 

PRINT LF 



F4LT0CT is called to convert a binary value to an octal character string 
and print that strinp on the console terminal. 



Inputs: 
Rl = Binary value to be converted and printed. 



HLTOCT: 


MOV 


R 1 . - < SP ) 




MOV 


R2, -(SP) 




MOV 


#6. , R2 




CLR 


RO i 




ASHC 


#1.R0 ; 




BR 


2* } 


1*: 


CLR 


RO i 




ASHC 


#3, RO i 


2*: 


ADD 


#'0, RO i 




CALL 


HLTCHR ; 




SOB 


R2, 1* ; 




MOV 


#TXNUL, Rl ; 




CALL 


HLTPRT 




MOV 


( SP ) +, R2 




MOV 


<SP)+, Rl 




RETURN 





GET # OF OCTAL DIGITS IN RESULT STRING 

SET FOR SHIFT 

SHIFT 1ST BIT INTO RO 

ENTER CONVERSION LOOP 

SET FOR SHIFT 

SHIFT AN OCTAL DIGIT INTO RO 

CONVERT BINARY VALUE TO ASCII CHARACTER 

PRINT A CHARACTER 

LOOP TO PRINT REST OF VALUE 

NOW PRINT CR-LF 



HLTF^AD is called to convert a RAD50 value to an ascii character string 
and print that string on the- console terminal. 



Inputs: 
Rl = RAD50 value to be converted and printed. 



HLTRAD: MOV 

MOV 
CLR 
DIV 



R 1 , - < SP ) 
R2, -<SP) 
RO 
#50«-50, RO 



i Clear high order 
;Divide for 1st byte 



I 















TBEXC2 


— MiBC 


tsx~f:i 


us E X !? c u 




SYSDIE - 


— • Fatal 


By stern 


halt 




58 


014400 


1 1 6000 


014454' 




59 


014404 


004737 


014524' 




60 


014410 


005000 






61 


014412 


071027 


000050 




62 


014416 


116000 


014454' 




63 


014422 


004737 


014524' 




64 


014426 


116100 


014454' 




65 


014432 


004737 


014524' 




66 


014436 


012701 


001136' 




67 


014442 


004737 


014242' 




68 


014446 


012602 






69 


014450 


012601 






70 


014452 


000207 






71 
72 
73 
74 










75 
76 


014454 


040 


101 




77 
78 
79 










SO 
81 

82 










83 
84 
85 
86 










87 


014524 


032737 


OOOOOOG 




as 


014532 


001774 






89 


014534 


1 1 0037 


OOOOOOG 




90 


014540 


000207 
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MDVB 


R50CHR<R0).. RO 


CALL 


HLTCHR 


CLR 


RO 


DIV 


#50, RO 


MOVB 


R50CHR<R0),R0 


CALL 


HLTCHR 


MOVB 


R50CHR(R1)>R0 


CALL 


HLTCHR 


MOV 


#TXNUL, Rl 


CALL 


HLTPRT 


MOV 


<SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





i Get output character 
; Print a character 
;Clear high order 
J Divide for 2nd byte 
; Oet output character 
; Print a character 
; Get output character 
; Print a character 
.: Now print cr-lf 



. EVEN 



102 R50CHR: .ASCII / ABCDEFGHKMLMNOPQRSTUVWXYZ*. 0123456789/ 



EVEN 



HLTCHR is called to print a single character on the console terminal 
during a system crash. 

I n p u t s : 
RO = Character to print. 



#TRRDY, @#CTTBR i IS TERMINAL READY FOR ANOTHER CHARACTER? 

; BR IF NOT 
; SEND CHARACTER TO CONSOLE TERMINAL 



BEQ HLTCHR 
MOVB RO, @#CTTBR 
RETURN 



€ 

€ 

< 
I 
I 

( 
i 

i 

€ 
< 

I 
< 
i 
I 
i 
i 
t 
1 
i 



( 

f 



TSEXC2 
EXCINI 



— iiisc, 
-- Final 



€ 
€ 



3 

4 

5 

6 

7 014542 

8 

9 
10 
11 
12 



20 
21 
22 
23 
24 
25 



14542 
14546 
14552 
14554 

14560 

14564 



13 

14 

15 

16 

17 014566 

18 014570 
19 








26 

27 

28 

29 

30 

31 

33 
34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 
45 
46 
47 

48 

49 

50 

51 
52 
53 
54 

55 

56 

57 



14574 
14600 
14602 
14606 
14610 
14614 
14620 
14622 
14624 
14632 



14640 
14644 
14646 
14652 
14656 
14660 
14664 
14670 
14672 
14674 



14700 
14704 
14706 
14712 



TSX-Plus Ex ecu MACRO V05. 04 
sustem initialization 



013701 
012702 
010103 
062703 
010361 
010301 
077207 
005063 



012702 
003417 
013701 
0101 03 
062703 
010361 
010301 
077207 
013763 
013737 



00 5737 
001415 
012702 
013701 
010103 
062703 
010361 
010301 
077207 
005061 



013701 
005021 
020137 
103774 



14714 013701 
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. SBTTL EXCINI — Final system initialization 



i 

€ 



EXCINI is the last part of the system start-up initialization routine. 

It is placed in TSEXEC rather than TSINIT so that tables that am allocated 

over TfjINIT can be clobbt?red during this part of the initialization. 



0000000 
177777G 

OOOOOOG 
0000000 



0000000 

ooooooc 

OOOOOOG 

OOOOOOG 
OOOOOOG 



EXCINI: 

Set up I/O queue free chain 

MOV PRE I CO, Rl 

MOV #NUMI0Q--1, r<r.' 

10*: MOV R1,R3 

ADD #I0QSIZ>R3 

MOV R3, Q. LINK(R1 ) 

MOV R3, Rl 

SOB R2, 10* 

CLR Q. LINK<R3) 



BASE OF I/O QUEUE AREA 

# I/Q QUEUE ELEMENTS ~ 1 

GET ADDRESS OF CURRENT QUEUE ELEMENT 

POINT TO NEXT QUEUE ELEMENT 

SET FORWARD LINK IN OUR ELEMENT 

POINT TO NEXT ONE 

GO DO IT 

ZERO LAST FORWARD POINTER 



Set up fork blocks that are allocated in init area 



30*: 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 

177777G 
OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



MOV 

BLE 
MOV 
MOV 
ADD 
MOV 
MOV 
SOB 
MOV 
MOV 



#«NUMFRK- 
31* 

FRKINI, Rl 
Rl, R3 

#FQ**SZ.. R3 
R3, FQ*LNK<R1) 
R3, Rl 



to allocate 



■•FRKGEN>-1>, R2 ; Get # fork blocks 
Br if none to allocate 
Point to start of fork area 
Get address of current block 
Point to next block 
Set forujard link in our element 
Get address of next block 
Allocate all but last block 
FREFRK, FQ*LNK<R3) ; Add static fork blocks to end of list 
FRKINI, FREFRK i Put new fork blocks at head of list 



Set up cache control block free chain 



31*: 



21*: 



TST 
BEQ 
MOV 
MOV 
MOV 
ADD 
MOV 
MOV 
SOB 
CLR 



CSHALC 
20* 

#NUMCCB-1. R2 
CCBHD. Rl 
Rl> R3 

#CC**SZ,R3 
R3. CC*LNK(R1 ) 
R3, Rl 
R2, 21* 
CC*LNK<R1 ) 



Is data caching wanted? 

Br if not 

Get # cache control blocks ~ 1 

Base of control block area 

Get address of current control block 

Get address of next control block 

Make current block point to next one 

Get address of next block 

Loop if more to link together 

Zero last link , 



Initialize device mount table 



20*: 
40*; 



MOV 
CLR 
CMP 
BLO 



CSHDEV> Rl 
(Rl) + 
Rl, CSHDVN 
40* 



.; Point to start of av&a 
.; Zero the entire table 
/ Reached end? 
; Loop if not 



Initialize shared PLAS rt?gion control blocks 



14720 
14724 



\J £:, "ij X wJ / 

loaoo;.: 



OOOOOOG 
OOOOOOG 



36*: 



MOV 
CMP 
BHIS 



SHRRCB, Rl 
Rl, SHRRCN 
35* 



.; Point to 1st reigion control block 
j Have we initialized entire area? 
; Br if yes 



I 



TSEXC.2 
EXCINI ■ 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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1 4726 
014730 



014732 
014736 
014740 
014744 
014746 
014752 
014756 
014760 
014762 



014766 
014772 
014776 
015000 
015002 
015004 
015006 
015012 
015016 
015020 
015022 



015026 
015032 
015034 
015040 
015044 
015046 
015050 
015052 
015056 



015060 
015064 
015066 
015072 
015076 
015100 
015102 
015106 
015110 
015114 
015122 
015124 
015130 



005021 
00077;! 



013701 
00 1 4 1 3 
012702 
010103 
062703 
010361 
010301 



OOOOOOG 

1777770 

OOOOOOG 
OOOOOOG 



005061 OOOOOOG 



013701 
1 3702 
001413 
005302 
001407 
010103 
062703 
010361 
010301 
077207 
005061 



013700 
001412 
013702 
013703 
005004 
010422 
00S023 
063704 
077005 



012701 
001470 
1 6 1 03 
012700 
105023 
077002 
162701 
003367 
012701 
032761 
00 1 4 1 
016102 
00140:i 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 

OOOOOOG 

000020 



OOOOOJ 



CLR 
BR 



<R1)+- 
36$ 



Zero the area 



Initialize free list of siuap command packets 



35*: 



38*: 



MOV 
BEG 
MOV 
MOV 
ADD 
MOV 
MOV 
SOB 
CLR 



SCPFHD; Rl 
37* 

#NSCP-1, R2 
Rl, R3 

#SP**SZ, R3 
R3> SP*LNK<R} > 
R3, Rl 
R2, 38* 
SP*LNK<R1) 



; Point to area where packets are 

■> Br if nothing to initialize 

;Get # packets --1 

i Get pointer to current packet 

; Get pointer to next packet 

jMake our packet point to next 

; Get pointer to next packet 

;Loop till all packets but last linked in 

; Say last packet is end of list 



Initialize the free chain of monitor control blocks 



37*: MOV MONFQH, Rl 

MOV VMXMON, R2 

BEQ 28* 

DEC R2 

BEQ 42* 

29*: MOV R1,R3 

ADD #JM**SZ>R3 

MOV R3, JM*LNK<R1 ) 

MOV R3, Rl 

SOB R2> 29* 

42*: CLR JM*LWK(R1) 



Get base of area for control blocks 

Get # monitor blocks 

Br if none wanted 

Get one less than # wanted 

Br if only one wanted 

Get address of current block 

Get address of next control block 

Make current block point to next 

Get address of next block 

Br if more to allocate 

Zero last link 



Initialize the tables that keep track of free space in job swap file 



28*: MOV VSWPSL, RO 

BEQ 33* 

MOV SWPPOS, R2 

MOV SWPJOB, R3 

CLR R4 

32*: MOV R4, <R2) + 

CLR (R3)+ 

ADD SLTSIZ,R4 

SOB RO, 32* 



Get # slots in swap file 

Br if no swap file 

Point to table that has starting 

Point to table that has job #'5 

Ist slot is at block 

Set block # for this slot 

Say no job using this slot now 

Add # blocks used by a slot 

Loop till all slots initialized 



blk #'s 



Initialize vector for each multiplexor that is used to map 
the Mux line number to the TSX-Plus logical line number 



from 



33*: 
15*: 
17*: 



OOOOOOG 16*: 

OOOOOOG OOOOOOG 19*: 

OOOOOOG 



MOV 


#LSTMX,R1 


BEQ 


27* 


MOV 


MXLNT(R1),R3 ; 


MOV 


#16. , RO ; 


CLRB 


(R3) + 


SOB 


RO, 17* 


SUB 


#2, Rl i 


BGT 


15* i 


MOV 


#LSTHL, Rl i 


BIT 


#*HARD, LSW3(R1) i 


BEQ 


18* ■> 


MOV 


LMXNUM<R1), R2 ; 


BEQ 


18* i 



Get index # of last mux 
Branch if no mux's to initialize 
GET ADDRESS OF MUX MAPPING TABLE 
ZERO 16 BYTES IN TABLE 



More mux tables to init? 

Loop if yes 

GET INDEX # OF LAST PHYSICAL LINE 

Is this line connected to hardware? 

Br if not 

IS THIS LINE CONNECTED TO A MUX? 

BR IF NOT 



TSEXC2 
EXCINI - 

US 
116 
117 
US 
U9 
120 
121 
122 

124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
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015132 
015136 
015142 
015144 
015150 



015152 
015156 
015160 
015164 
015170 
015172 
015176 
015202 
015204 
015212 
015214 
015220 
015222 
1 5230 
015232 
015240 
i 5244 



1 5246 
015252 
015256 
015260 
015264 
015270 

015274 



015304 
015310 
015312 
015316 
015320 
1 5322 
015326 



015330 



016202 
066102 
110112 
162701 
003361 



105737 
00 1 033 
012701 
005761 
001423 
016100 
020027 
001004 
012771 
000412 
020027 
001004 
052771 
000403 
052771 
162701 
005347 



013703 
012704 
010302 
062702 
010263 
010203 
077407 
005063 



OOOOOOG 

ooooooe 

000002 



0000000 

ooooooe 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

ooooooe 

OOOOOOG 
000002 



OOOOOOG 
177777G 

OOOOOOG 
OOOOOOG 



OOOOOOG 



015300 004737 015746' 



012704 
002407 
016400 
001401 
105010 
162704 
002371 



OOOOOOG 
OOOOOOG 

000002 



18*: 



MOV 


MXLNT<R2),R2 


ADD 


LMXLN(Rl), R2 


MOVB 


Rl, (R2) 


SUD 


#2, Ri 


BGT 


19* 



GET ADDRESS OF MAP VECTOR FOR THIS MUX 

ADD OFFSET WITHIN VECTOR 

SET TSX LINE # WITHIN MAP VECTOR 

GET INDEX # OF NEXT LINE 

LOOP IF MORE LINES 



Enable interrupts for mul tiplexors 



23*: 



OOOOOOG 

24*: 
OOOOOOG 
OOOOOOG 26*: 



TSTB 

BNE 

MOV 

TST 

BEQ 

MOV 

CMP 

BNE 

MOV 

BR 

CMP 

BNE 

BIS 

BR 

BIS 

SUB 

BGT 



PROFLG 

27* 

#LSTMX, Ri 

MXCSR(Rl) 

25* 

MXTYPE<R1), RO 

RO, #CDX*DZ 

24* 



Are uje running on a Pro? 

Br if yes — Don't have any mux's on pro 

Get index # of last mux 

Is this mux installed? 

Br if not 

Get mux type code 

Is this a DZU? 

Br if not 

#INTMX1, <ilMXCSR<Rl )i Enable DZU interrupts 
25* 

RO, #CDXf.VH ; Is this a DHVU? 
26* ; Br if not 

#<:VF*TIE!VF*RIE>, @VH*CSR(R1); Enable DHVU interrupts 
25* 

#<HF*TIE!HF*RIE>, @MH*SCR(R1 >; Enable DHU interrupts 
#2,R1 i More mux's to initialize? 

23* i Loop if yes 



Initialize system message buffer free list. 



7*: MOV BNMSHD, R3 

MOV #<NMSNMB-"1>>R4 

7*: MOV R3.R2 

ADD #SB**SZ, R2 

MOV R2, SB*LNK(R3) 

MOV R2, R3 

SOB R4. 7* 

CLR SB*LNK<R3) 



GET ADDRESS OF 1ST MESSAGE BUFFER 

GET # MESSAGE BUFFERS -1 

GET ADDRESS OF MESSAGE BUFFER 

POINT TO FOLLOWING BUFFER 

CHAIN TOGETHER THE ENTRIES 

MOVE ON TO NEXT ENTRY 

DO ALL BUT LAST 

SET FORWARD LINK FOR LAST ENTRY TO ZERO 



Initialize INSTALLed protiram table 

CALL INSINI ; Initialize installed program table 

Initialize CL table information 



41*: 



45*: 



MOV 


#2«<CLT0TL--J>/R4 


BLT 


39* 


MOV 


CL*EPS<R4), RO 


BEQ 


45* 


CLRB 


<R0) 


SUB 


#2, R4 


BGE 


41* 



Get index to last CL unit 

Br if there are no CL units 

Get pointer to EOF string buffer 

Br if no string buffer 

Say no EOF string 

Get next index 

Loop if more CL units 



Initialize the file management tables 
39*: OCALL USRINI iCaU TSUSR initialization routine 

Initialize spool buffer list 



TSEXC2 
EXCINI • 

172 

173 

174 

175 

176 

177 

178 

179 

ISO 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 



224 

225 
226 



— Misc 
— Final 

015336 
015342 
1 5344 



015352 
015356 
015360 



015364 
015370 
1 5372 



015400 
015404 

015406 



015412 
015416 
015420 



015426 
015432 
015434 



015442 
015450 
015454 
015456 
0154&4 
015472 



TSX-P3 
s y s 1 9 !?1 

105737 
001403 
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005737 
00140;.' 
004777 



005737 
00 1 403 



005737 
00 1 40i:^ 
004777 



005737 
001403 



005737 
001403 



012737 
105737 
001410 
1 2737 
012737 
005737 



OOOOOOG 



TSTB 

BEG 

QCALL 



NSPLDV 

11* 

SPLINI 



; Are there any spooled devicesT' 

J Br if not 

.: Initialize the spooling system 



Initialize the record locking system 



OOOOOOG 
0000000 

OOOOOOG 



11*; 



TST 
BEQ 
CALL 



VMXSF 

12* 

SLOKINI 



Is record locking support wanted? 

Br if not 

Initialize the shared file system 



Initialize the message communication system 



12*: TST VMAXMC 
BEQ 13* 

OCALL MSGINI 



; Is message communication support wanted? 

i Br if not 

i Initialize the message system 



Initialize the data caching facility 



OOOOOOG 
OOOOOOG 

OOOOOOG 



TST 


CSHALC 


BEQ 


43* 


CALL 


eCSHINI 



13*: 



Initialize the PLAS system 

43*: TST VPLAS 
BEQ 44* 
OCALL PLSINI 



J Is data caching wanted? 

j Br if not 

J Initialize data caching facility 



; Is PLAS support included in system? 

i Br if not 

; Do PLAS initialization 



Initialize the dislay window management system 



OOOOOOG 



44*: 



TST 


VMXWIN 


BEQ 


34* 


OCALL 


WINIWI 



Is window support wanted? 

Br if not 

Initialize window system 



Connect clock interrupt to clock interrupt routine 



OOOOOOG 000100 34*: 
OOOOOOG 



OOOOOOG 000230 
000340 000232 
OOOOOOG 



MOV 


#CLKINT.. ©#100 


TSTB 


PROFLG 


BEQ 


22* 


MOV 


#CLKINT, @#230 


MOV 


#340, e#232 


TST 


@#PCCCR2 



Set up clock interrupt vector 

Is this a PRO? 

Br if not 

380 clock interrupt vector 



1 5 476 004737 1 5626 ' 



j Access CSR2 to start clock interrupts 

i 

i Initialize time-sharing line parameters and speeds 

> 

22*: CALL INISPD ; Initialize time-sharing line speeds 

i 

i Start lines that specified *SrART when genned. 



015502 
015506 
015514 
015516 
015524 
015526 
015534 
015536 



012701 
032761 
001413 
032761 
00 1 007 
032761 
001003 
005000 



000002 

OOOOOOG OOOOOOG 2*: 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 



MOV 
BIT 
BEQ 
BIT 
BNE 
BIT 
BNE 
CLR 



#2, Rl ; INDEX # OF 1ST LINE 

«*START, ILSW2(Rl)iD0ES THIS LINE WANT AUTO STARTUP? 

3* 



#*DEAD- LSW3<R1) 
3* 



BR IF NOT 

IS THIS LINE INSTALLED? 

BR IF NOT 

#*PHONE, ILSW2(R1)> IS THIS A DIAL-UP LINE? 
3* ; BR IF IT IS (NO AUTO STARTUP THEN) 

RO ; No secondary start-up command file 



TSEXC2 


-" riisc 


TSX-P} 


u 5 E X e c u 


EXCINI - 


— Final 


5y stem 


initiali 


229 


015540 


004737 


001606' 


230 


015544 


062701 


000002 


231 


015550 


020127 


0000000 


232 


015554 


10175'1 




233 








234 








235 








236 


015556 


012701 


0000000 


237 


015562 


020127 


OOOOOOG 


238 


015566 


101013 




239 


015570 


016102 


OOOOOOG 


240 


015574 


001405 




241 


015576 


105712 




242 


015600 


00140:3 




243 


015602 


005000 




244 


015604 


004737 


001606' 


245 


015610 


062701 


000002 


246 


015614 


000762 




247 


015616 






248 








249 








250 


015616 


105037 


OOOOOOG 


251 








252 








253 








254 


1 5622 


000137 


OOOOOOG 
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c 

f 



3*: 



CALL 


INITLN 


INITIATE THE LINE 


ADD 


#2, Rl 


ADVANCE JOB # 


CMP 


Rl. #LSTPL 


MORE TO CHECK? 


I3L0S 


2* 


BR IF YES 



Start any detached jobii 



6*: 



5f. : 
4*: 



# OF FIRST DETACHED JOB 

DONE ALL DETACHED JOBS? 

BR IF YES 

DOES THIS JOB HAVE A START-UP COMMAND FILE? 

BR IF NOT 

IS COMMAND FILE NAME NULL? 

BR IF YES 

No secondary start-up command file 

INITIATE THE LINE 

CHECK NEXT LINE 



Finished system initialization 

CLRB ' INITFL i SAY SYSTEM INITIALIZATION IS FINISHED 

Enter job scheduler to wait for first job to run 

JMP EXEC > ENTER JOB SCHEDULER 



MOV 


#FSTDL, Rl 


CMP 


Rl, #LSTDL 


BHI 


4* 


MOV 


LSUCF<R1), R2 


BEQ 


5* 


TSTB 


(R2) 


BEQ 


5* 


CLR 


RO 


CALL 


INITLN 


ADD 


#2, Rl 


BR 


6* 



I 



TSEXC2 
INISPD - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 
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. SBTTL INISPD — Initic^lize time-sharing line speeds 

INISPD is called to initialize the transmit/receive speeds for 
time-sharing lines. 



015626 010146 
015630 010246 



1 5632 1 270 1 0000000 



015636 032761 OOOOOOC OOOOOOG 1$: 

015644 00143.'? 

015646 032761 OOOOOOG OOOOOOG 

015654 001026 



INISPD: MOV 
MOV 



R 1 , - < SP ) 
R2. -<SP) 



015656 116100 00000 IG 



015662 032761 OOOOOOG OOOOOOG 

015670 00140;? 

015672 012700 OOOOOOG 

015676 016102 OOOOOOG 

1 5702 00 4 772 OOOOOOG 



015706 020127 OOOOOOG 

015712 101007 

015714 032761 OOOOOOG OOOOOOG 

015722 00140;j 

015724 052761 OOOOOOG OOOOOOG 



015732 162701 000002 
015736 003337 



015740 01260;^' 
015742 012601 
015744 000207 



Begin loop to set each .lino 

MOV #LSTHL, Rl i Get index to last hardware line 

Skip this line if it is dead or not connected to hardware 

Is this line connected to hardware? 

Br if not 

Is this line installed 7' 

Br if not 

Set the speed of this line 

MOVE LMXPRM+KRl), RO ; Get speed parameters 

Initialize speed to 9600 baud if autobaud was specified for line 



BIT 


#*HARD. LSW3(R1> 


BEQ 


2* 


BIT 


#*DEAD, LSW3(R1) 


BNE 


2* 



3$: 



BIT 
BEQ 
MOV 
MOV 
CALL 



#*AUTO, ILSW2<Ri ) 
3* 

#39600. RO 
LCDTYP(Rl), R2 
©CDSSPD<R2) 



Is autobaud wanted for this line? 

Br if not 

Set speed to 9600 

Get device type code for this line 

Call hardware-dependent routine to set speed 



Convert *TDEAD lines <deaded with TSXMOD) to *DEAD lines 

CMP R1,#LSTPL ; Is this a time-sharing line? 

BHI 2* ;SI<ip if not (skip sub* det Sc io lines) 

BIT #*TDEAD, LSWIKRI ) ; Do we want this line to be dead? 

BEQ 2* ; Br if not 

BIS #*DEAD, LSW3<R1) ; Flag line as dead 



See if there are more lines 



2*: 



SUB 


#2i Rl 


BGT 


1* 


F i n i B h e d 




flOV 


(SP)+, R2 


MOV 


( SP ) +, R 1 


RETURN 





J Are there more lines to do? 
i Br if yes 
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3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



015746 
015750 



015752 
015756 
015760 
015764 



015766 
015772 



015776 
016004 
016010 
016014 



01602^ 



016026 
016034 
016040 
016042 
016044 
016046 
016050 
016054 
016056 
016060 
016062 
016064 
1 6066 



016070 
016074 
016100 



016102 
016104 
016106 



010246 
010346 



013702 
00502?? 
020237 
103774 



013702 
012703 



013762 
012362 
012362 
01 3762 



012362 0000000 



052762 
012704 
1 2300 
001412 
002003 
005400 
012704 
005300 
006300 
060004 
060204 
012314 
000762 



020327 
103736 



01260:J 
012602 
000207 



OOOOOOG 
0000000 



0000000 



OOOOOOG 
00 1 606 ■■ 



. SBTTL INSINI - — Initialize installed program table 
Initialize the installed program table. 



INSINI: MOV 
MOV 



R2, -<SP) 
R3, -ddP) 



Initially, zero the entire table 



0000000 
OOOOOOG 



1$: 



MOV 
CLR 
CMP 
BL.O 



INSTBL, R2 
(R2) + 
R2. INSTBN 
1* 



i Point to start of table 
i Zero the table 
j Reached end of table? 
; L o o p if not 



Now install certain system programs 



OOOOOOG 
001412' 



OOOOOOG 
000002G 
000004G 
001350' 



MOV 
MOV 



INSTBL- R2 
#SRFPRG, R3 



; Point to 1st table entry 

f Point to table with info about sys programs 



Set file spec for prociram 



OOOOOOG 2$: 



000006G 



MOV 
MOV 
MOV 
MOV 



SYNAME, II^NAM<R2); Set SY as device name 

<R3)+, II*NAHH-2<R2) ; Set 1st 3 chars of program name 

(R3)+, II$NAM+4<R2) ; Set 2nd 3 chars of program name 

R50SAV, II*NAM+6<R2)i Set SAV as file extension 



Set run attribute flags 

MOV (R3)+, IIi6FLG(R2); Set run attribute flags 
Set privileges for program 



OOOOOOG 



3$: 



5*: 



BIS 
MOV 
MOV 
BEQ 
BGE 
NEG 
MOV 
DEC 
ASL 
ADD 
ADD 
MOV 
BR 



#PO*DBG> II*NPV<R2> i Set NODEBUG privilege flag 



#II*PRV, R4 

<R3>+, RO 

4* 

5* 

RO 

#II*NPV, R4 

RO 

RO 

RO, R4 

R2, R4 

(R3)+, (R4) 

3* 



Assume we will set some privileges 

Are there any privilege flags? 

Br if not 

Br if we are to set privileges 

Get positive offset 

Point to reset-privilege vector 

Convert to offset 

Convert to word offset 

Point to word in vector to change 

Add address of install table entry 

Set bits in install table entry 

Go see if more privileges for program 



€ 
€ 



See if there are more programs to install 



4*: 



ADD 
CMP 
BLO 

F i n i B h e d 



MOV 
MOV 
RETURN 



#II$*SZ,R2 
R3, #SRFEND 
2* 



<SP)+, R3 
(SP)+, R2 



Point to next install table entry 
Installed all system programs? 
Loop if not 
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58 

59 00000.1 

Errors detected: 



. END 



*•*■«• Assembler statistirt; 



Work file reads 
Work file writer 
Size of work file 
Size of core pool 
Operating system 







9768 Words ( 39 Pages) 

17920 Words < 70 Pages) 

RT-.il 



Elapsed time: 00:01:02.04 

DK: TSEXC2. LP: TSEXC2=DK: TSEXC2. MAC/C/N: SYM 
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*1STLG 


i-55 


i0-16*v 








*AUTO 


1-51 


10- lot' 


28-14 


53- 


•26 


$CARMN 


1-61 


5-90 


5-95 


30- 


"45 


*CARUP 


1-55 


5-93 


10-171 


30 


-40 


*CTRLC 


1-74 


s-;2v 


8-30 






*CTRLD 


1-51 


6- 111 








*CTRLS 


1-70 


6-111 


10-30 


4B 


-34 


*DBGBK 


1-107 


8-18 


12-2S 






^DBSMD 


1-5B 


8-17 








*DEAD 


1-62 


10-171 


29-15 


52- 


-22 


*DEBUG 


1-92 


13-D7 








*DEFER 


1-87 


6-iPV' 








*DETCH 


1-40 


6- .104 


10-10 






*DHBF1 


1-90 


10-34 








*DHBF2 


1-90 


1 0-34 








*DHCDO 


1-40 


49- 1 4 








*DILUP 


1-40 


5-74 


10 -2S 


10 


•65 


«DISCN 


1-46 


7-29 


7-33 


10- 


-50 


*DODFR 


1-87 


6-ii:'7 








*DOOFF 


1-72 


7-31 


30-50 






*FPUEX 


1-85 


14-11 








*GCECO 


1-87 


6-127 








*GEMAR 


1-34 


8-13 








*HARD 


1-78 


10-171 


29-17 


52- 


-11 


*IITIM 


1-82 


47-20 


47-27 


48- 


-22 


*INCOR 


1-102 


5-64 


18-27 






*INIT 


1-65 


6-9 








*INKMN 


1-64 


6-15 


7-14 


7- 


•41 


*IOMAP 


1-75 


8-17 








*LOFCF 


1-66 


10-124 


30-52 






*MAPOK 


1-03 


7-42 








*MLOCK 


1-75 


8-17 








*NABRS 


1-51 


10-108 


28-27 


28- 


-29 


*NOABT 


1-84 


8-18 








*NOIN 


1-72 


5-75 


7-32 


30- 


^47 


*NOLF 


1-58 


8-17 








*NOUCR 


1-53 


7-11 


7-25 






*OITIM 


1-97 


47-31 


47-37 


48- 


•30 


*PHONE 


1-62 


5-91 


29-29 


52- 


'22i 


*PWKEY 


1-35 


5-7/ 








$RDSAV 


1-34 


8-13 








*RNMLK 


1~5S 


8-1 Ei 








*SGQO 


1-93 


1 7-30 








$SGQ1 


1-104 


17~1>6 








$SGQ1A 


1-104 


17-Bl 








$SGQ1B 


1-104 


1 7- 1 00 








*SGQ1C 


1-104 


17-91 








*SGQ2 


1-104 


1 7- 1 1 & 








*SGQ3 


1-93 


1 7-37 








$SOTFN 


1-87 


27-16 


27-10 






*START 


1-62 


52-2r';:' 








*SUCF 


1-59 


5-76 








*TDEAD 


1-62 


53-36 








fVIRJB 


1~S0 


7-43 








*VNOTT 


1-70 


lO-lv-'i 








*XCHAR 


1-83 


10--36 


10-171 


47- 


•33 



30-64 



53-17 53-38 



30-41 30-48 
10-126 30-50 



53-15 
48-26 



12-14 13-23 26-36 



48-38 



47-35 48-32 48-36 
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... VI 7-58 7-7;-' 7-72 

. . . V2 7-58 7-'33# 7-72 7-72 7~72# 7-72# 

ABORT 1-26 11-^52 13-71# i4-20 .14- -28 

A13RTAD 1-64 13-7.H;- 

ABRTCD 1-64 13-72& 

AF*BYA 1-45 4-''!V 4-75 

AF*DUP 1-36 4-29 

AF$HIE 1-45 4-37 4-4 J 4-45 

AF$IND 1-36 4-33 

AF*IOP 1-45 4-'3B 

AF$MEM 1-45 4-03 

AF*NOI 1-45 4-7 j 

AF*NOW 1-45 4-33 4'-37 4-41 4-45 4-67 4-71 4-83 

AF$NPW 1-35 4-7.1 

AF*PLK 1-44 4-49 

AF$SCA 1-45 4~;.i7 4-41 4-45 4 54 4-67 4-71 4-83 

AF*SET 1-36 4-bH 

AF*UCL 1-36 4-79 

BELL 1~120# 3-27 

C. NUMQ 1-34 6~/v8t.=- 

CANCPL 8-104 9-i0# 

CANIOT 1-56 S-''i4 

CANMKT 1-76 8-70 

CARDET 1-Sl 31-26 

CC**SZ 1-105 52-40 

CC*LNK 1-105 52-41 «■ 52-44 1:- 

CCBHD 1-66 52-38 

CDCLOK 1-60 29-23 

CDGDSS 1-106 30-. (.^ 

CD I FLO 1-111 15-50 15-60* 

CDIRTN 1-111 15-63 

CDOFLG 1-111 15-67 15-69+:- 

CDORTN 1-111 15-72 

CDSDSS 1-106 30-27 30-58 30-78 

CDSSPD 1-40 53-30 

CDX«DZ 1-52 52-129 

CDX*VH 1-107 52-133 

CHKABT 1-57 11-66 13-29 

CHKPRT 18-116 20-741 

CHKUSP 1-63 li-50 13-20 14-25 

CINFLG 1-37 8-31 *:• 8-42 

CKMRKT 1 5-23 24-64! 

CKSCHD 1 5-34 27-9« 

CKTWAT 1 5-27 22 -6# 

CL*EPS 1-42 52-:(6v) 

CLENUP 7-24 8-9^^ 

CLKOIS 15-85 18-641 

CLKABD 18-107 28-6« 

CLKCNT 1-88 i5-8K- 15-18 15-78 15-90 16-19 22-13 24-20 26-7J 

CLKDAT 15-12 16-13^1 

CLKINT 1-61 52-20B 52-211 

CLKIOH 18-103 i9-9# 

CLKJOB 17-6# ia-99 

CLKPC 1-101 26-29 26-45 

CLKPHN 29-33 30-10« 

CLKPM 15-40 26-lBir 
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CLKPS 


i-101 


26-;:'V 


26-42 
















CLKRUN 


1-27 


1-B8 


1 5 -6# 


15-91 














CLKSCR 


24-63 


25-7# 


















CLSCDB 


1-77 


S-.(.l. 1 


















CLTOTL 


1-46 


18-117 


52-158 
















CONFIG 


1-58 


1 4-3V 


















CDRUSR 


1-56 


7-6 


10-186>5- 


11-19 


1 3-22 


13-56 


15-16 


17-11 


IS- 


-67 


CP*STD 


1 - 1 02 


25-20 


















CQ^CP 


1-77 


25~P0i^- 


















CQ*HOT 


1-100 


24-21 & 


















CQ*JOB 


1-S8 


25-21 


















CQ*LNK 


1-76 


1-86 


1-100 


24-13 


24-15 


24-32 


24-32* 


24-37* 


24- 


-49 


CQ^LOT 


1-100 


24-20* 


24-24 
















C(3*PRI 


1-97 


25-32^* 


















CQ*RNS 


1-100 


19-40 


19-42 


25-31* 














CR 


1-1 ia# 


3-27 


51-15 
















CSHALC 


i-66 


52-35 


52-190 
















CSHDEV 


1-39 


52-48 


















CSHDVN 


1-39 


52-50 


















CSHFIN 


1-51 


9- '.10 


















CSHINI 


1-100 


52-192 


















CSIARE 


1-74 


7-72 


















CTTBR 


1-58 


51-S9J^ 


















CTTSR 


1-58 


51-87 


















CURCP 


1-101 


9-i'H:- 


















CURRDB 


1-6S 


S-12BI!- 


















CURVC 


1-85 


11-21 


11-44 
















CW*FPU 


1-57 


1 4-3*7 


















CXBOWN 


1-47 


8-60 


















CXTBAS 


1-105 


6-39 


















CXTPAG 


1-79 


5-tiO 


















CXTRMN 


1-68 


6-57 


6-66 


6-73 


7-59 












CXTWDS 


1-105 


6-40 


6-45 
















D*RUN 


I-IOS 


13-17 


















D. FLAG 


1-lOS 


8-25 K- 


13-17 
















DATIMH 


1-89 


1 6-24 


















DAT I ML 


1-89 


16-26 


16-31 
















DBGTRP 


1-94 


13-60 


















DEQ 


1-55 


10-165 


















DFJMEM 


1-71 


5-48 


6 1 32 
















DHCLOK 


1-30 


49-10# 


















DHGDSS 


1-28 


39-1 i# 


















DHLBIT 


3-39# 


42-17 


















DHSBRK 


1-30 


42-9# 


















DHSDSS 


1-28 


40~9# 


















DHSPCT 


3-59# 


4 1 -22 


















DHSSPD 


1-30 


4 1 - .1 Oil 


















DIEARG 


1-37 


7-8 i<- 


11--34*- 


1 1 -46-)s- 


50 47 












DIEBAS 


3-5# 


3-6 


3-7 


3-8 


3-9 


3-10 


3-11 


3-12 


3- 


-13 




3-17 


3-18 


3-19 


3-20 


3-21 


3-22 


3-23 


50-40 


50- 


•125 


DIEMSG 


1-37 


7-SM- 


7-74* 


11-35* 


1 1 -46* 


18-137* 


50-39 


50-124 






DIEPC 


1-37 


50-34 
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PO*SYS 


i"42 


4-50 


























PCCCR2 


1-105 


52-2;! 3 


























PF*IOW 


1-101 


26-49 


























PFIiOVF 


1-101 


26-74 


























PF«SYS 


1-101 


26-24 


























PIDPTR 


1-'51 


15-45 


























PLSINI 


1-38 


52-198 


























PLSOFF 


1-106 


10-143 


























PLSXIT 


1-71 


0-118 


























PMBASE 


1-86 


26-60 


26-65 
























PMFLOS 


1-102 


26-24 


26-49 


26-74* 






















PMNBPC 


1-86 


26-67 


























PMPAR 


1 -87 


26-70 


























PMRUN 


1-56 


1G-100« 


1 5-38 
























PMTOP 


1-86 


26-62 


























PMUSER 


1-55 


10-177 


10-179K- 


26-35 






















PNAHE 


1-113 


50-1 o;:' 


























PROFLG 


1-105 


20-12 


52-123 


52-209 






















PROODC 


1-106 


3-51 


15 --SO 
























PROTIM 


3-51# 


1 5-47 K- 


1 5 -50«- 
























PSW 


1-63 


7-10«- 


7-13* 


7-37* 


9-19* 


9-27* 


10-187* 


14- 


-10* 


24-14* 


24- 


■58* 


25-12# 


25-16* 




25~44if 


34-17i;' 


34-22* 


39-22* 


39-26* 


40-16* 


40-30* 


41- 


-50* 


41-53* 


43- 


•24* 


43-28* 


44-20* 




44-30# 


45-49tJ 


45 ■"52* 


46-20* 


46-30* 


47-22* 


47-25* 
















PVON 


1-41 


5-1 10«- 


10-46* 


10-93* 






















Q. LINK 


i-59 


52-15*^ 


52-10* 
























QCOMPL 


1-99 


20-4 :j 


25-36 
























(3CPU 


1-98 


1 7- 1 i 9 


























QFREE 


1-76 


5-123 


6-91 


0-89 


8 99 




















QHIPRI 


1-80 


5-99 


























QNSPND 


1-70 


9-;:?3 


























QUNSIG 


1-103 


1 7-29 


1 7 -36 


17-55 


17 SO 


17-90 


17-99 


17- 


114 












R*CH17 


1-73 


7-60 


























R$MFMV 


1 -83 


6-74 


























R^SWPC 


1-34 


6-67 


























R50CHR 


51-58 


51-62 


51-64 


51-75# 






















R50PR0 


3-53# 


20-18 


























R50PRT 


3-54# 


20-20 


























R50SAV 


3-55# 


54-25 


























RCBBAS 


1-71 


1 -Vf-,{ 


























RCBEND 


1-71 


l-7(:( 


























RCVDON 


1-82 


47-18 
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RDINT 


1~S2 


47-in:i 


47-24 


RDONE 


.1--B2 


4S-20 




R.IE 


1 -~S2 


4S-24 


48 25 


RING 


1. -'8 1 


31-20 




RPAR 


1-68 


8-131!'. 




RPDR 


1-68 


8-132^s• 




RSR 


1-SO 


31-1 6 


32-131^ 


RTSTOP 


1-75 


S-49 




S*-*HIP 


1-97 


17-65 




St.fRT 


1-97 


17-70 




S*HICP 


1-69 


1 7-86 


17-92 


S$INWT 


1-85 


21-11 




S*.IOWT 


1-86 


9-;:i2 


19-28 


S*DTFN 


1 -87 


27- 1 9 




S$OTLO 


1 -87 


27-22 




S$TMWT 


1-97 


22-11 




SfTWFN 


■j „97 


22-27 


25-27 


S*WSMB 


1-98 


18-21 




S.t50 


1-56 






S9600 


1-51 


26-30 


53-28 


SB**S2 


1-61 


52-146 




SBfLNK 


1-61 


52- 147 « 


62-1 50 «■ 


SCHED 


1-54 


9-37 




SCPFHD 


1-57 


52-63 




SETMAP 


1-71 


6-1 3i 


7 49 


SETSPD 


1-Sl 


28-3 i 




SHRRCB 


i-lOl 


52-55 




SHRRCN 


1-101 


52-56 




SLTSIZ 


1-39 


52-96 




SNMSHD 


1-61 


52-143 




SP**S2 


1-61 


52-67 




SPfLNK 


1 -48 


52-68*- 


52-7H^ 


SPCPS 


1-72 


8-231;- 




SPIJ 


1-35 


6-B3-t^ 


10-48 


SPLINI 


1-70 


52-174 




SPSTAT 


1-84 


20-31);- 


20-35 


SPTXT 


3-34# 


50- J 1 1 




SRFEND 


4-87# 


54-50 




SRFPRG 


4-27# 


54-Jfi 




SS 


1 - 56 


10-- 135 




SS*PRT 


1--S4 


20--35 


20-44 


SS*RUN 


1-84 


20-31 


20-44 


STOP 


1-26 


1-64 


7-6# 


STPFLG 


1-80 


30-20 




SIR ACT 


1-92 


21-19 




SUCF2 


1-35 


6-06 




SUTOP 


1-73 


7-4 a 




SWPCOT 


1-85 


1 8-33 


18--36t:- 


SWPJOB 


1-39 


52-92 




SWPPOS 


1-39 


52-91 




SYNAME 


1-43 


54-22 




SYPNCR 


1-59 


24-33 


24-43-t;- 


SYSDAT 


1-85 


16-33 


16-61 K- 


SYSDIE 


1-26 


50-1 5# 




SYSHLi 


1-37 


1 1 -39 




SYSHLT 


1-63 


1 -96 


7 B 
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32-23-ii- 47-18 47-23-ts- 47-24« 



25-30 



titi-\Jri 



20-44 ■» S0-49-S- 



20-49 
20 49 
13-73 



25-13 



7-74 11-46 18-137 
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Cross reference table <CREF V05. 04) 

SYSXIT l-'-IT 1,2- 30 

SYTIMH 1-89 10- IB 10-22 16-20-k- 16-24 16-32+^ 

SYTIML 1-89 10-19 10-25 16~19-ii- 16-26 16-3 Hi- 

TIKOIS 3-52# 15-81 K 18-12 18-124*- 

TTKCNT 1-88 15-6 15-90«- 

TKICNT 1-89 15-78 ft 15-80i:- 

TKIVAL 1-88 15-00 

TK5CNT 1-89 18-1 !!# 1(3-1 i3t> 

TLCHK lS-114 29-6# 

TMIDLH 1-96 lS-95tc 

TMIDLL 1-96 1S--94-K- 

TMIOH 1-94 18-60+.=- 

TMIOL 1-94 1S-;59k' 

TMJOWH 1-95 18-B3^i- i8-91-^:- 

TMIOWL 1-95 lS-82iJ 18~90-ii- 

TMSWPH 1-95 18-66*- 

TMSWPL 1-95 18-65 K- 

TMSWTH 1-96 18-8515- 

mSWTL 1-96 18-B4*- 

TMTOTH 1-94 18-56*- 

TMTOTL 1-94 IS-StHJ 

TMUSRH 1-95 18-70»>^ 

TMUSRL 1-95 1S~69+* 

TOTON 1-55 5--103^'- 10-176& 

TRBRK 1-103 33-- IS 33-23 

TRMRDY 1-81 31-32 32-18 32-23 

TRNSTR 1-78 10-31 

TRPAR5 1-38 50-53 50-77 

TRPBPT 1-26 12-10-Jf 

TRPCOM 1-25 11-29 11-60 11-62 12- -37 13-1 1# 

TRRDY 1~5S 51-37 

TSEXC2 i-iO# 

TSR 1-112 33-18«- 33-23-ti- 34-18 34-2 1-t^ 

TSXTX 1-25 ll~.t5# 

TXARG 3-2S# 50-45 

TXDEV 3-33# 50-103 

TXFSE 3-27# 50-29 

TXNUL 3~29# 51-41 51-66 

T XO I D 3-32# 50-93 

TXPAR5 3" 30-# 50-^-7 5 

TXSEG 3-3 1-# 50-09 

UER3EV 1-72 7-18* 

UFPTRP 1-57 8-123-fr 14-13 14-57 14-59-ft 

UHIMEM 1-73 7-50K- 

UIOCNT 1-92 18-57 18-79 IS-BS 

UMODE 1-57 1-102 7-S7 11-16 11-79 13-15 13-43 14-58 26-27 26-42 

UPMODE 1-57 7-13 7-37 11-79 13-43 14-10 14-58 

UREGO 1-98 18-22 

USRINI 1-59 52-16B 

USRJOB 1-76 8-53 

UTRPAD 1-57 a-122-» 11-56 11-84 ll-S5-i^ 

VDBFLG 1 -47 1 2-26 

VDMKTP 1-38 11-27 

VECBAS 1-69 6-5B 

VF$7BT 1-SO 45-39 

VF*SBT 1-50 45-37 
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VF$BC 


1-53 


46-24 


46-26 










VF$DCD 


1-108 


43-3S 












VF*DTR 


1-lOS 


43-44 


44-24 


44-26 








VF*EVN 


1-50 


45-45 












VF*LEN 


1-50 














VF*PAR 


1-50 


45-42 












VF*RIE 


1-52 


1-90 


43-20 


44-16 


45-27 


46-16 


52-135 


VF«RNG 


1-lOS 


43-32 












VF*SC 


1-53 














VF*TIE 


1-52 


52-135 












VH$CSR 


1-52 


1-107 


43-25*t 


44-2 1# 


45-50# 


46-21* 


52-135* 


VH*LCR 


1-46 


1-107 


43-26 


44-24* 


44-26* 


46-24* 


46-26* 


VH*LPR 


1-53 


45-51* 












VH$LSR 


1-107 


43-27 












VHCLOK 


1-30 


49-9# 












VHGDSS 


1-29 


43~.tl4f 












VHSBRK 


1-30 


46-9# 












VHSDSS 


1-29 


44-9# 












VHSPCT 


3-63# 


45-21 












VHSSPD 


1 -30 


45-9# 












VINTIO 


1-103 


5-ao 












VMAXHC 


1-69 


8-78 


52-184 










VMXMON 


1-99 


52-76 












VHXSF 


1-70 


52-17B 












VMXWIN 


1-91 


10-135 


52-202 










VOFFTM 


1-90 


10-96 


30-29 










VPAR5 


1-3S 














VPAR6 


1-86 


26-69 












VPLAS 


1-78 


9-116 


10-141 


52-196 








VPRIDF 


1-79 


5~7S 


5-79 










VPRIHI 


1-93 


1 7-23 












VPRILO 


1-93 


1 7-32 












VQUANO 


1-93 


1 7-25 


1 7-27 










VQUANl 


1-9S 


5-31 












V(SUAN2 


1-98 


17-112 












VQUAN3 


1-93 


1 7-34 












VQUNIA 


1-98 


1 7-78 












VGUNIB 


1-99 


1 7-97 












VQUNIC 


1-103 


1 7-es 












VSWPFL 


1-73 


5-59 


7-44 










VSWPSL 


1 -39 


52-89 












VSYDMP 


1-37 


50-118 












VTMOUT 


1-81 


30-28 


30-68 










VUSPHN 


1-34 


30-43 












WAKEUP 


18-115 


21-6# 












yiiMiNi 


1-91 


52-204 












WINREL 


1-49 


10-137 
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Cross reference tr3bie <CREF V05. 04) 

. CMl 7--72 

, CM2 7-72 7-72 7-72 7-72 
. CM3 7-- 58 
. CMS 7-72 
. CM7 7-72 

PURGE 2-4# 7-58 

READW 2-4# 7-72 

DIE 2~37# 7-B 7-74 11-46 18-137 

DISABL 2-21# 9-.i.9 24-14 25-12 34-17 39-22 40-16 41-50 43-24 44-20 45-49 46-20 

47-22 

ENABL 2-27# 7-10 9-27 10-187 24-58 25-16 25-44 34-22 39-26 40-30 41-53 43-28 

44-30 45-52 46-30 47-25 

OCALL 2-1 1# 8-35 8-36 8-37 8-49 8-55 B-62 S-66 8-70 8-74 8-80 8-118 

10-70 10-137 10-143 21-19 30-55 52-168 52-174 52-186 52-198 52-204 

SATXT 2-47# 3-6 3-7 3-8 3-9 3-10 3-11 3-12 3-13 3-14 3-15 3-16 

3-17 3-.IB 3-19 3-20 3-21 3-22 3-23 



